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PREFACE 


Tne ERIC Clearinghouse on Vocational and Technical Education 
(VI-ZRIC) has been producing two quarterly abstract journals since 
late 1967. Abstracts of Research and Related Materials in Vocational 
and Technical Education (ARM) provides indexes to and abstracts of 
documents in vocationai and technical education; it is designed for 
researchers, teacher educators, administrators, and ethers who need 
research and related materials in an organized and accessibie form. 
Abstracts of Instructional Materials in Vocational and Technical 
Education (Al.’) provides indexes to and abstracts of instructional 
materials in vocational and technical education; it is designed to 
provide accessibility to the collection for teachers, administrators, 
curriculum specialists, and others. Nearly 36 percent of the 

--—matserials in ARM and 79 percent of those in AIM have not appeared 
in Research in Education and are made available only in this way 
to over 2,800 users whe receive the publicatio:s. 
The anplication of computer technology so the generation of 
’ AIM and ARM has afforded the Clearinghouse with economies and 
efficiencies otherwise not possibie and has opened up new opportunities 
to utilize the Clearinghouse collection such as document retrieval 
-and information product repackaging. Other Clearinghouses may find 
these techniques applicable to their operation. Agencies, such as 
state yocational-technical education research coordination units, 
“will soon be able tc acquire the ARM and AIM collection on magnetic 
tape and be able to retrieve document resumes with QUERY. VT-ERIC will 
continue to use and update the files. 
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INTRODUCTION 


The project reported herein was conducted by the ERIC Clearinghouse 
on Vocational and Technical Education pursuant to an extension of its 
contract. The purpose of the project was to develop computer techniques 
for the production of Abstracts of Research and Related Materials in 

‘Vocational and Technical Education (ARM) and Abstracts of Instructional 
Materials in Vocational and Technical Education (AIM) and to repert 
these techniques so that they might be used by other ERIC Clearinghouses 
for production of Clearinghouse publications. The specitic objectives 
of the project were to enable the Clearinghouse to: 

1. generate bibliographies from the Clearinghouse 
collection upon which to base information analysis 
papers, 

2. eonduce searches of the Clearinghouse collection for 

" solution to wncelenis in the field, 

3. generate camera-ready ~opy for publication of Clearinghouse 
abstract jcurnais (i.e., AK, AIM, and AIM-ARM Annual Index), 
and © 

4. describe the system to faci itate its installation in 
Clearinghouses and other egercries. 

Figure 1 on page vi illustrates a general cutline of the system. 

A schematic flowchart of the programs is: provided in Figure 2, 


page 18 - 21. 
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The document collection of the ERIC Clearinghouse on Vocational 
and Technical Fducation has been made available through announcement 
in USOE's monthly Research in Fducation (RIE) and through its own 
quarterly abstract series, Abstracts of Research and Related Materials 
in Vocational and Technical Fducation (ARM) and Abstracts of Instruc- 
tional Materials in Vocational and Technical Education (AIM). 

Efficiency and accuracy of ARM and AIM production has been gained 
through the application of computer techniques. Bibliographic data 
and abstracts are brought together on data cards for input to magnetic 
tape files. The magnetic tape file provides storage of the data. The 
computer prograris developed in this project permit accurate manipulation 
of the data into formats for resume and jndex sections of AIM and ARM 
which may ke printed out as camera-ready copy. “nduction of the 
Fall 1970 issue ot ARM represented the first Cae ork. Shouse publication 
which hid been completely computer-generated. In addition, the Fall 1970 
ARM contained the Clearinghouse's backlog and was released on schedule. 

In the first twelve issues of ARM, 3,703 documents were announced, 
1,324 of which had not been reported in RIE. In the first twelve issues 
of AIM, 2,605 documents were announced, of which 2,067 had not peen 
reported in RIE. Thus, 3,391 of the documents announced in AIM and ARM 
could not be searched by computer until after the development of the 
software package reported here. The first search of a partial fiie has 
been successfully coriducted and input of resumes in back issues of AIM 
and ARM to magnetic tape is nearly complete. A significant by~product 
of the project will be the eventual availability of the AIM and ARM 
collection on magnetic tape in a format to permit others to search it 


with QUERY. 


The report includes explanation of the system requirements 5 
descriptions of computer program operating procedures, capability, 
and utilization; and a summary and recommendations. ¥xtensive 
appendices provide the technical details for the system including 
keypunching, job control language, control cards, error messages, 
program listings, program and system flowcharts, and page samples. 
Also available is Computer Applications to ERIC Clearinghouse 
Document Collections: A User and Installation Handbook by 


Lonnie A. Berkebile. 
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Figure 1 -- General Outline of the System 
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SYSTEM REQUIREMENTS POR EFFECTIVE COMPUTER UTILIZATION 


The computer software that was developed in this project permits effec- 
tive utilization of the computer in the production of Clearinghouse abstract 
journals such Abstracts of Research end Related Materials in Vocational and 
Technical Education (ARM) and Abstracts of Instructional Materials in Voca~ 
tional and Technical Education (AIM). It also permits computer search of 
the document collection which is announced in the abstract journal. The 
principal benefits are increase in production efficiency and accuracy, access . 
to the Clearinghouse document collection by computer, and increase in the» 
options. available for repackaging the document collection in other useful 
forms. | 

The following sections briefly describe the underlying requirements 

fer, and general. nature of, the procedures for data storage, publication 
production, and search tape preparation. | | 

The first task was to prepare a package which could easily be converted 
to other computing operations and still conserve time in the program opera- 

tion. Possible languages to be used were FORTRAN, ASSEMBLER, or PL/I. 

(he first two languages have requirements which should be avoided. FORTRAN 
has limited character manipulation. arid presents difficulties with variable | 
“Jength records. ASSEMBLER would be difficult to modify and update. Thus, 

- a decision was made to write the programs in PL/I, even though the package 

—«7OULG “be restricted to IBM installations. It might be noted, however, that 


‘other manufacturers are now producing PL/I compilers. 
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Equipment Requirements for 


Clearinghouse Computer Programs 


The programs in this package have been run on an IBM 360 model 75 operating 
der HASP-IT. AL spine programs in this package will fit in 126,000 bytes cf 
ain memory. The running times that we have experienced indicate that 2 hours 
f computer time for each publication will be needed. The 2 hour estimate is for 

publication of 300 documents. 

The equipment needed for producing an abstraci. journal and magnetic search 
ape is available at most computer centers with an IBM 360 computer. If both up- 
er and lower case letters are used, each document will require approximately 
O minutes to keypunch on an IBM 029 keypunch. In addition to a keypunch for 
reparing documents for publication, & PL/I compiler, 3 tape drives, @ card reader 
ind line printer will be required. In addition all of the index programs require | 
lecess to the SORT/MERGE routines. The access to SORT/MERGE will be more efficient 


'£ disk storage is available; however if sufficient tape drives are available, 


-he sorting can be handled on tapes. 


Storage of Data Pertaining to Clearinghouse Documents 


Storage and maintenance of data is a first problem when preparing to 
create a publication. What format should be used for the data? What storage 
device should be used? These are ee two of the questions to be answered. 

One alternative is storage on disk providing a direct access system which would 
be very efficient. The problem with this approach is the storage costs, which 
are relatively high, thus magnetic tape storage was advisable. Data must be 
prepared for input on available equipment and, in this case, it amounted to a 


choice between paper tape and punched cards. 
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Because of available <quipment, paper tape would have to be converted to 
punched cards as an intermediate step to magnetic tape, thus ee 
ation of cards was a logical decision. If the hardware available had allowed 
direct conversion from paper tape to magnetic tape, the choice to use paper 
tape would have been feasible. Temporary retention of data cards affords 
security for the datas; but, after printing of the publication, these cards 
may be destroyed. 

| The bibliographic data in ERIC resumes varies both in length and in 
types of data available. Originally, the Clearinghouse format was variable 
and differed from the format being used by Centrai ERIC . This vari: ble 
format was the basis for card preparation and magnetic tape file ere:.tion. 
The program to convert the card data to magnetic tape is referred to as the 
MASTER program. 

The MASTER program reads in each card for a particular document and 
analyzes the card for syntax. This program pulls off all card images related 
to a document by using the accession number. ‘The accession number is in the 
first ten positions of the record. Then the program searches the card 
images to discover what data is applicable and what is or is not included. 
The program then sets up one record on the MASTER tape for the document. 

The length of the record varies due to the varying material, and there is 

a record for every document in the quarterly abstract series (ie., Aim and 
ARM). This record is set up so that all bibliographic data is listed first 
in a special order, followed by a section of numbers that gives the lengths 
of the different data. A zero length implies that a data piece is missing 
from the record. ‘The lengths and zeroes allow access 6 ay particular piece 
of bibliographic information within this large record, and the zero lengths 


indicate certain bibliographic information is missing. The order and format 


of the data in each record is as follows: (Asterisks indicate material which 


- does not always appear. ) 


Bibliographic Record Formet 


Piece of Data ~*~ ~ ” Tength (in bytes) 


1. Decument Taentif 
(Vi Humber ) 


i ad 
Q 
io 
¢ 
Pe 
QO 
3 
ry 
K 
mse 
od 
rH 
j 
oO 


2. Code Nuniber 3 ; . Ss 
3. Accession Iumber (ED Number ) | 20 
kh. Whether it is ean ATI or ARM publica- 

tion and the curren: season 3. 

Current Year 
6. Page number on which the resume appears 

in the front section of publicavion \ 
7- *Author;: «+ + Author» n=2 . =1Be 
8. Title 396 
9°. *Corporate Author, .. - Author,, n=5 =660 
30. *Sponsoring Agencyy, 2 « « Sp. Agency;> 

n=3 , <396 
ll. Price, Contract Number, Grant Number, and | 

Program Area Tumber #132 

12. *Repoxrt Number > Bureau Tumber : 132 
13. | €Avatlabdility . PEN 
ah, ¥Journal Citation | 7 132 
15. Publication Date hg 7 
46. The number of pages in the report x 16 


_— 


P — | 
7 ENIC —_ ! b 40 


17. *Descriptive Rote . <= 2h7- 


18. Descriptors — . * . 660 
19. *Identifiers 396 
20. H (separator) . _ "+ 2 
| 21. Nupber of authors in Section 7, OSn=2 h. 
; 22, ler “7 of each author in Section 7 . 
i (If n=) wen there is no Section 22.) sen 
= 23. length =f th: title 7 h. 
i . oh, Number o* scxrpor2:e authors in Sectiox 9 
. Oxn=5 hh 
j 25. *Length of -ach ccrporate gues oe Section -9 
(If n=O, trove iz no Section 25.) © a 
e . 26. itumber of sxusoricg agencies in Secticn 10 
o=n=3 ae 
¥ 29. «=*Length of each sponsoring agency in ~ 
i -  ° Seetion 10 (If n=O, there is no Section 27.) hn 
1 28. Length of the Price ; i | 
29. Tength of the Contract Nuzber i 
7 _ : 7 30. Length of the Grant Number 4 
| (32. Length of the PA Nuxber - ; 4 
32, Length of the Report Number ye 
33. Length of the Bureau Number . h 
' 3h. Length of the Availability ok 
. 35. Length of the Journal Citation y 
- 36.. Iength of the Publication Date a 
| . 37. Length of the Page Count | 
a "38, Lenth of the Descriptive Hote he 
i | ; 39. Length nf the Descriptors 
: | a | ho. Length: o= the Identifiers | 4h 


qhe maxicum length of such a record is 3,.732 bytes. 


F 


Many of the Clearinghouse products of the tape to be produced by 
this packagé have been announced in RIE at an earlier date. In the case 
of these publications, the data is already in machine readable form. 


The problem of peeding & separate format for the publication tapes is 


ets 


easily solved by @ program to corvert the tapes to the desired 
Clearinghouse format. Since only bibliographic data is needed for 
index sections ec? the publicatic s, the program designed to convert 
the RIE maghetic tape data create two new magnetic tapes: one tape 
for bibliographic data and the second one for abstracts for the 
documents, 
In order tO make the publicetions more useful than 2 simple bibliography, 


4% is necessary to add abstracts to the finished product. Since the abstract 


a ae ee 


is only uséa for the resume section of the publications, it is more efficient 


to have the abstracts on a separate tape. 


The format used for storing abstract data is very simple: 10 bytes for 
' the Clearinghouse accession number, 2 bytes to identify the subject area, 


and 1,988 bytes for the abstract. The 2-pyte code used in the abstract 


data appeats in a fixed position in the bibliographic data. The Cléaring- 


house acceSsion nUmber and the code is both bibliographic and abstract 


data; thus, the documents can be sorted into several different orders and 


still allow a program to read both tapes and find corresponding document 


records. 


| ] _ — Production of Clearinghouse Information Products 
The first step is to determine Shten dooumnte are to apace in the 
| “Clearinghouse publication, After the documents have been selected, the 
- location of the bibliographic and abstract data must be determined. If the 
I information hes appeared in RIE and the quarterly update of ERIC tapes, the 
, document information will not need to be keypunched. _ 
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Once the document information is located, bibliographic «nd abs cra2t 
tapes need to be created. Once these magnetic tapes ave beea created, a 
resume section containing abstracts and bibliographic data can te printed. 
Then, author, subject, seppervine service, and title or document number ) 
indexes may be printed. 

After the resume and indexes are proofed, the ccnavesieady printout can 
be prepared and then processed by a printing contractor. This involves 


reduction of the size and printing of the publicatior. 


Retrieval of Clearinghouse Documents 
he bibliographic and abstract tapes can be combined into the ERIC 
tape format to permit use of QUERY. QUERY allows the capability to search 


the data base. ; _ : = — 
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It 
DESCRIPTION OF COMPUTER FP: . =RAM OPERATING 
PROCEDURES, CAPABILITY, A' © UTILIZATION iN 
BRIC CLEARINGHC 3ES 
Procedures for creation o= document num> =r, author, Supporting services, 

subject, and document number conversion ‘index = are described in the follow- 
ing sections. Further detail on specific Ero s:ams is provided in the appendixes 
veferred to in the text. Also described are estit programs for bibliographic 
records, annual document number index data, ami all other annual index data. 


Use of the QUERY programs on. Clearinghouse magnetic tapes is explained. 


Indexes 
Development of the indexes is dependent c1 the existence of the biblio- 
graphic and abstract magnetic tapes that can ii - created following procedures 
described in preceding sections of the report. Control data for all indexes 
are listed in Appendix C. Listings are in Appendix E and flowcharts are in 


Appendix F.- 


The Document Number Index 

In the document number index, Clearinghouse accession number, ED number, 
resume section page number, and title for each document ere listed. The order 
of the .index is by ascending accession number. (In order to produce the docu-_ 
ment number index, the MASTER file containing the bibliographic information is 
read by the document number index program. The information needed for the 
document number index is pulled from the bibliographic tape. Since the year 
of publication will be needed in the annual index, this dio aaav pulised from 
the bibliographic tape. The information for each document is stored in its own 
record on a separate device (i.e., disk or tape). The subset file which is thus 
» sorted by accession number. The records ici the subset file 


eonsist of 


pond 
i 
a 


a 


4. Length of title (4 bytes) 

5. Title (maximum of 396 bytes) 

6. Issue (3 bytes) 

7. Year (4 bytes) 

Total record length is < 4bl bytes 

after these records have been sorted by accession number, the document 

umber index for the quarterly issue is created. This index is first printed 
nad proofed. It is then placed on magnetic tape, and the data on this tape is 
rinted on camera-ready paper. After the index for Quarterly issue has been 
repared, the annual index can be prepared from this and data sets from other 
uarterly issues. All of the information from the indexes in the quarterly 
ssue is not used in the annual index. Thus, each record is shortened to 
ontain s 

1. Accession number (6 bytes) 

2. Page number (4 bytes) 

3. Issue (3 bytes) 

kh. Year (2 bytes) 

5. Three blanks to increase length to 18 bytes. 
The subset file for the annual index is stored on magnetic tape and this data 
set is sorted by ascending accession number. The ennual document umber 


index contains the shortened records from the document number indexes for 


the issues which have been published during the year. 


Supporting Services Index 


To produce the supporting services index, Clearinghouse accession number, 
ED number, resume section page number , title, and part of the special code (shes 
form, ficld, and category) is needed. The section of the code needed indicates 
the field for the document. This code is the. 3 characters in the 20-22 column 
of the code card. For example, in vocational and technical education, these 
fields might be: agricultural education, business education, distributive 
education, home economics education, health occupations education, industrial 
arts education, manpower economics, occupational psychology, occupational 


sociology, trade and industrial education, and general technicai and vocational 
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education. The program is presently set for the fields in vocational and 
technical education. However, these can easily be adjusted to suit any suppor- 
tive service required or other categories. The supporting service is not 
repeated for each document. it is listed once and all the documents having 
that sub-code are listed under the title. The documents are listed in clearing- 
house accession number ascending order under the appropriate supporting service. 
For each bibliographic record, sub~codes, clearinghouse accession number, ED 
number, resume section page number, and title are needed for the indexes in 
the quarterly issues. The publication date will be needed for the annual index. 
This information is stored on a subset file containing: 

1. Sub-code (3 bytes) 

>, Clearinghouse accession number (19 bytes) 

3. ED number (20 bytes) 

hk, Publication date (7 bytes) 

5, Title (maximum of 396 bytes) 

Total record length is < 436 bytes. 

After the quarterly issue is prepared, the subset files can be shortened 
further for the annual index. ‘The annual supporting services index, sub~code, 
publication year, and Clearinghouse accession number are the only information 
needed. The format for the annual supporting services subset file is: 

1. Sub-code (3 bytes) 
2.. Publication year (2 bytes) 
3.. Clearinghouse accession number (6 bytes ) 


h. Seven blanks at the end for padding to make 
record length 18 bytes. 


Subj ect Index 


The subject index is made up from starred descriptors and identifiers. 
The bibliographic tape format is 
keyword}; .-. keywordn; etc. 
Some eeywonds are starred. These are the terms to be used as index terms. 
For the subject index, it is necessary to extract all starred identifiers 
and descriptors, Clearinghouse accession number, ED number, resume section page 


number, and title for the quarterly subject index, plus the publication year . 
10 


Bes. 


for the annual subject index. For each starred keyword in the record, 2 
record is written on a disk subset file. ‘There are approximately five starred 
keywords for each record. The records on disk subset files will look as follows: 

1. Starred keyword (200 bytes) 

2, VT number (10 bytes) 

3. ED number (20 bytes) 

ih. Page number (4 bytes) 

5. Publication date (7 bytes ) 

6. Title (< 396 bytes) 

Total record length is < 637. bytes. 
In order to sort according to the starred keywords, the keyword field in the 
record must be of a fixed length. However, the keywords vary in length, so a 
maximum keyword length of 200 bytes was selected. When a keyword is not 200 
bytes long, it is left justified and then padded with blanks on the right. 
These records are first sorted by alphabetical order of keywords and then by 
accession number in ascending order. The subject index is printed and proofed, 
then copied onto “ape to be put on camera~ready paper. Once the subject index 
has been produced for the quarterly issue, the annual subject subset file can 
be written. For the annual index, the records will contain: 

1. Starred keyword (200 bytes) 

2, Publication year (2 bytes ) 

3. Vi number (6 bytes) 

Record length is 208 bytes. 
Author Index 

Each bibliographic record can have personal authors or corporate authors 

or perhaps neither of the two. The author index uses the author name, accession 
number, resume section page number, and title for the author index in the quar- 
terly issue, und the publication date for the annual author index. The author 
index is sorted by authors in alphabetical order. Each author name is listed 
once in the index and under it is listed all documents written by the author 
in Clearinghouse accession number ascending order. The record for each author 
is formed in the author subset file. The records consist of: 


e@ 
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1. Author name (132 bytes) 

2. Clearinghouse accession number (10 bytes) 
3. ED number (20 bytes) 

. Page number (4 bytes) 

. Year (2 bytes) 

. Length of title (3 bytes) 

. Title (maximum of 396 bytes) 

Total record length is 567 bytes. 


h 
é, 
6 
7 
Just as in the subject index, the author name is padded with blanks on the 
right to enable the sort, the subset file records are sorted by author name in 
alphabetical order and then by Clearinghouse accession number in ascending orde:*. 
Once this file has been sorted, the index is then printed: first on lined paper 
for proofing, and then on tape for preparing the camera-ready copy. 
As the index is being formatted for the quarterly issue, the annual author 
subset file is being formed. The format of the annual records is: 
1. Author name (132 bytes) 
2. Publication year (2 bytes) 
3. Clearinghouse accession number (6 bytes ) 
Total record length is 140 bytes. 
As in the other indexes, at the end of the year, the quarterly subset 


files are combined to form the annual index. 


Conversion of Document Number Index 


The conversion of document number index is formed from the piiched cards 
prepared by the resume print program. The cards punched by the resume program 
contain the Clearinghouse accession number, ED number, and resume section page 
number. The information necessary for this index is the Clearinghouse accession 
number and ED number. Since these decks are rather small, the deck for each 
index can be saved and the information fre“ one quarter to the next can be 
combined into one annual index. 

ihe Inder itself consists of two parts: the conversion of _, saringhouse 
accession numbers to ED or MP numbers, 2nd the conversion of ED or MP numbers 


to ilearinghouse accession numbers. Soth of these sections may be cumulative. 
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The annual conversion of document number index may be formed by combining the 
.Llearinghouse accession numbers to ED numbers sections of the indexes from each 
Quarterly issue. The annual index contains only the Clearinghouse to ED number 


‘conversion. 


Edit Programs 

Since errors may be made in preparing the data base, two points have been 
identified as requiring an edit capability. The first is the MASTER tape--if 
this tape is to serve the key role 4t was designed for, then it must be free 
of errors. The second point is the annual subset files. With the possibility 
of an error being missed until the annual is to be prodused:, an edit capability 
shovld be available, avoiding the need to rerun a Quarter's publication for the 
sake of an error in the subset file. The MASTER tape is eventually corrected; 
however, the second edit allows publication schedules to proceed. 
Master Edit Program 

Some resumes will be found to contain errors during proofing of the print- 
out. The first step in editing is to read the list of Clearinghouse accession 
numbers on the tape to identify the documents needing correction. The remaining 
documents are copied onto a new tape. Incorrect resumes are corrected by 

--punching new data cards to replace those in error. ‘The resumes of corrected 

documents are added to the end of the new tape. The MASTER edit program also 
allows the deletion of documents in order to obtain the desired paging in the 
resume section, 
Annunl Subset Edit Frogram for Author, Subject, and Supporting Services Indexes 

One program will handle the editing for the author, subject, and sipping 
_gervices indexes. There are three phases to this program: (1) replace any 
records which have errors in them, (2) delete any excess records, and (3) add 
@ 
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‘any records which have been skipped. For each of the phases, the keyword, 
publication date, and Clearinghouse accession number are read. ‘The keyword is 
either the subject, the author, or the code for the supporting service. In the 
case of the replacement phase, both the data for the bad document and the data 
for the correct document are needed. 
Annual Subset Edit Program for Document Number Index 

A separate program is needed to edit the document number index. The program 
is similar to the edit program for the other subset files; however, due to the 


change in content and number of fields, a separate program is needed. 


Use of QUERY Program 


QUERY, primarily designed eos weteteving information from the tapes in the 
ERIC format, is also useful for retrieving information from Clearinghouse 
collections provided that they are also in ERIC format. 

The first use of QUERY in this software package is for retrieving information 
from RIE for the Clearinghouse publications. Many documents that the -learing~ 
house may want to use will already have appeared in RIE. Once these records 
have been extracted, the ERIC format is converted to the Clearinghouse biblio-~ 
graphic format and abstract format by use of a program listed in Appendix E and 

-~flowcharted in Appendix F. The pibliographic tape then can be used with the 

. index programs to prepare the index sections of the publication. The biblio- 
graphic tape and abstract tape are then used with the resume print program to 
eoensse the resume section for publication. 

QUERY can also be used for obtaining documents pertaining to a particular 

; toute. These documents could then be. processed through the programs, and pub~ 
lications containing resume sections and indexes could be prepared. When the 
Gizaxtashouse has published its own documents, the question arises: How do 
they search these documents? When the document base becomes large enough that 


: 
q 


| computer applications are feasible, the software package contains programs 
. 
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to convert the document base to the ERIC format (Appendix E and F). With the 


document in the ERIC format, the tape can be searched with QUERY, just as the 


original ERIC tapes could be searched. 
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Bens 
SUMMARY AND RECOMMENDATIONS 


Summary of the Project. 

The purpose of this project was to develop a software package for the 
production of Clearinghouse abstract journal publications and creation of magnetic 
tape files for use in document retrieval. The programs in the package are 
written in PL/I for use on IBM 360 or other computers with a PL/I compiler. 

Also needed are keypunch machines, three tape drives, card reader, and Line 
printer. A SORT/MERGE program is. needed to supplement the routines prepared 
especially for this software package. 

Programs in the software package facilitate seeperwtion of cemera-ready copy 
of resume sections, and subject, author, supporting service, document number, and 
document number conversion indexes. Search tapes may also be created for use in 
computer sdaxehand of the Clearinghouse collection or repackaging of the document 
base in other forms. 

The procedures require that document data be stored on magnetic tapes. 

Input to the bibliographic and abstract tapes is by punched data cards for non- 
RIE documents and through format conversion of RIE documents identified ina 
QUERY search of the ERIC tapes. Data on bibliographic and abstract tapes are: 
merged into a resume ssction which is formatted and printed. The pibliographic 
tape is used to format and print subject, author, supporting services, and 
document number indexes. Cards created as an outcome of the resume section 
print program are used to format and print the document number Senuaudion index.” 
A search tape is created by merging piblidgraphic and abstract tapes. 

The utility of the complete software package has been proven in production 
of the Fall. 1970 issue of Abstracts of Research and Related Materials in Voca- 


tional and Technical Education Soe Portions of the package have been used in 
ERIC 
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production of Spring, Summer, and Fall (1970) issues of Abstracts of Instructional 


Materials in Vocational and Technical Education (AIM); the Spring and ee (1970) 
issues of ARM; and the 1969-70 Annual Index. 

The software package has been documented and is suitable for installation in. 
other Clearinghouses. Feasibility has been checked with five other Clearing- 
houses (i.e., Counseling and Personnel Services, Eaucational Media and Technology, 


Reading, Rural Education and Small Schools, Science and Mathematics Education ). 


Recommendations 

It is recommended -sat ERIC Clearinghouses be edvised cf availability of 
the software package. =is announcement should encourage imstallat-.on by any 
Cleariaghouse which hes = document collection sufficiently Jarge to warrant 
computer ret>ieval capecuty and by Clearinghouses which produce bibliographies 
and/or abstract journai~ from RIE and Clearinghouse document collections. | 
This will require duplitetion of software documentation appended to this report. 

It is also recommended that provisions be made for training sessions, 
visitation, or consultation necessary to successful installation and utilization 
of the software package. | 

It is further recommended that additional procedures be developed so that 
the bibliographic tape be created when a document is first accessioned by the 
Clearinghouse. Additional routines could be developed which would permit 
duplicate checking, preparation of the Acquisition Data List, source checking, 


and production of control file cards. 
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Flowchart of the System 


(The System Is the Same for ATM and ARM) : 
Figure 2 


This flowchart depicts an 
annual procedure which is 
started every fall quarter 
and completed the foliowing 
summer. : 


Document re- 
eetived by us as 
data for cuarter-| 
ly publication 


Note: Underlined words in 
the flowchart refer to _ 
computer programs, whose 
source listings can be 
found in the back part of 
this booklet. 


Fath for 


Transfer card 
images to mag- 
netic tape 

using IEOGENER 


vr-2D card 
deck w/Con 


ndexes excep 
the conversion 
index and 


abstracts Program 


Merge current 
quarterly VI-ED 
deck w/data sev 
already on mag. 
tape. Conversion 
Tape Program is 
used but tape 

dd card contains 
a mod. disp. 


Process card 
image tape 

for abstract 
section 


Create 
abstract 
section 


Fix errors on 
original punched 
ecards. Use Edit 
Program for 
master to add 
bad documents to 
existing master 


find errors 
n card data 


RESULT 


| 


gs to generate author index, subject index, 
j document no. index & supporting services 


\ Pile. ‘ 
a ay documents wee ee ot oo 
Comment: The following procedure is used y,, need cut Ques ber iy j 
conversion 4 


index Pee 
at 
ron 


index, Though we perform the procedure 
rany times/quarter, it is listed here once, 
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Pravess fall 


version Tape 


Flowchart of the System (cont'¢. } 


Cosck index 
Sutput 
for errors 


Ketabsin. 


telat euaaany 


Index 
smublished 


Comsected 
dau. set o 


Reprint summer 
conversion 
index in an 
annual format. 
Send annual 
index to printer 
Prepare for 

new year. 


Mas . f ad . 


| 


Process master 
tape 
w/quarterly in- 
dex program 


i 

4 RESULT RESULT 
a“ 
Quarterly 


data set on 


Check index 
for errors | 


Use the Edit 
waster Program to 
eorrect the bad 
documents on 
master file 


Yes 
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Flowchart of the System (cout'd.) 


Figure 2 
4 Send index RESULT 
printout to 
i be published 
G*—*s 
ri Annual Procedure 
Followed for the 
Pa Indexes in this Path 
} 
4c The quarterly 
| ; data sets on 
. magnetic tape 
are merged to 
bs form one large 
| : set. 
i : RESULT 
is ; Direct access 
: to annual 
A : data set. 
Process the data 
e set w/the Annual 
| Program belonging 
fo to this index. 
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eS a nee 
ee —— 


: Figure 2 
Flowchart of the System (cont'd.) 
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APPENDIX A 


KEYPUNCHING PROCESS 


3. 
Appendix A 


The Process of Keypunching for Clearinghouse Documents 


The Punching Process 


The VI number uses the first 10 columns of the punch card, followed by the 
line and card number on the next 4 columns, with the data starting on column 
15. 

Example: VT OOO OOQCOO11Data... cece 


The biblicgraphic cards have a zero added before the line number and a 1 or 2 
after the line number that designates the card number. This gives the card a 
4 number digit. For example: line 20 goes to 0201 - 0202, etc., depending 
on how many cards are needed for the title. I there are more than iwo cards 
needed, the number goes to 0211 - 0212, 0221 - 0222, keeping them in the 20 
class but building up the series. The 100 and 200 classes have only the card 
number added, to make the fourth digit. For example: 2001 - 2002. 


A program card is used to control the keypunch and automatically reproduces 
the VT number from card to card. At the end of each number class of informa- 
tion, an end-of-line mark is used to show the end. This is the hcrizontal bar 
On the keypunch. Example: If class number 30 went onto only one cerd it 
would be 

VP 000 0000301Data..........! 


or if on two cards, would be 


VT 000 0000301Data......eeee 
VI 000 OODOZO2 ccc cccccccccc cd 


Bibliographic Section 


oo , 

Ol These two lines are combined into the VT code card. Two of these cards 
are needed; one for the bib section and one for the abstract section, as 
these cards are kept separate in the files. The end-of-line mark is also 


used at the end cf this card. Example: 


¥T 000 1110011M 00 00 DO Cr 
fica 4S or os vol i2s3 tes iri coli 2 


a iieistawceer 3a wee wee Oe ee eee 


23 79 30j31 32 33 35 3 36 37 38 39 ot] a2 43 44 45 46 47 a8 49 S0]51 52 53 54 55 $6 57 58 59 60] G1 62 63 64 6S 66 67 G8 G9 TO]71 72 73 74 75 76 77 70 79 Ba) 72:13 74:15 76 77 78 79 Bd, 


10 This card contains the Personal Author data and uses the end-of-line mark. 
If more than one author appears, they are separated with a semi-colon. 
Example: 


ALL 009 pierre ee SMITHs JE ERIN 
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20 


2345 6 7 B 9 wis i214 


30 
31 
32 
33 
3h 


16 36:19 2] 12024250 2t 8 3a] 33H 35 38 33 oh Sl 44:45 46 


This card contains the Title of Document and also has special editing 
marks used by the computer. These are shcrt title marks showing the begin- 
ning and end of the title wanted for the Subject Index so they are placed 
at various places within the title cards, and the end-of-lLine mark is used. 
The title marks are the "less than" mark at the beginning and the “more 
than” mark at the end. Example: 


2- 


193 S0]51 52 53 $4 S556 5? SU 59 GO[61 62 OY £4 G5 Ga 57 68 69 70 


tt 92 73 74 7S 76 77 78 79 80 


These cards are the Corporate Author data cards and uses the end-of-line 
mark. These names must have a period before the end-of-line mark. Example : 


97 00 TLL0SH1OHIO STATE UNIY.. COLUMBUS, DISTRIEUTIVE EDUCATION SERVICE.! 


: ae EE Haas) er aa ——— 
12345676 9 ofiztinMts — 18.19 70]21 B BAW 7 foi 32_ 3455 36 7 3340, 2. 494647 so]s1 S33 35°) 2 38! | ott 3364 85 BG 68694 fi 


it 7475 16 177879 oof 


¥T 000 11103110HIO DHIO STATE UNI¥.: COLUMBUS. DISTRIBUTIVE EDUCATION MATERIALS 


ho 


Siac, pads, pitas dee 
— 4 *, ast iaber 2 
a2 2 SH 7B Twit — 1BN9 wl nes 2 wpe M3 as s2- eS | solar s2: : S555! 58! 


¥T O00 111 031ELAE. 1 
fittesereoweues Vaal aa 29 24 25 25 27 28.79 36/31 92 20 4 3S 36 37 38 29.9 


~- 


$52 43 44 45 46 47 48 49 SOTS1 52 53 $4 55 56 S7 $B 59 


BOIS! 62 63 64 65 6G G7 68 69 7UfMt 72 72:74 75:76 77 78 73 86 


41 These cards ‘are the Sponsoring Agency data ecards and uses the end-of-line 
ho mark. Example: 


¥#T 000 11104010HI0 STATE DEPT. OF EDUCATIONs COLUMBUS| a ee we 
‘ faresere Qf izwiis wisp 2% | 2878 Ee ee of 24a 4 45 a7 48 43.50] 5259: 5 be 57 68 59 GO[s1 G2 63 6465 66 67 60.69 10[T1 12 79 14 7575 77 70.79 6] 


50 The card contains the price line, contract number, grant number, and PA 


¥T O00 11105 01EDR3 PRICE MF-0.25 HO-£1.504,,0E12245.081- : 
- [irvascre 9 oft iz 1304 171819 70)21_ Bm eras] WR Bsa ap 4249 40 45 35 za a5 sn 5H) 57 89 Gilet GO OHS 6 47 6H TO] 1273.14 15 6 1079.3] 


number. There are also special editing marks used in this class and the 
end-of-line mark. The special edit marks are the tab or on the punch. 
These are placed after the price, after the contract aumber, after the 
grant number and end-of-line after the PA number. For example: 

Price 7aContract-7Grant7PAl. If there are ne contrast; grant or Pa, 


-¢these 3 marks must still be shown. Example: 


VT 006 1110501EDRS PRICE MF-30.25 HU-F1. 504571 “ ae ae 
: fizaescrvesupenn vasa. 23% 28 25 30| RBERS 38.39 “af 42.43 45 35 -46- 149 SalSt 52 59 52 55 56 57 50 50 GOPEI 62 63 64 65 O6 67 68 69 TO]TT 72-73 14 75 76 77 78 73 to} , 
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60 This card contains the Report number and the Bureau number. There is 
also a tab used if one or the other is not available, and the end-of-line 
mark, For example: O601Report—7! or 0601-7 Bureaut or ix both are 
present the tab is used to separate them. Example: 

¥T O00 1110601PUB-123-! : , 


fiz aes G7 a siwniwurs6 wr zope i2 2425 25 2 7828 


3032.33 34 35 36 33 28 35 20) 1 8243 44 45 45 47 43 99 90]S1 S27 53 54 55 56 57 58 59 GOET 67 67 64 65 6 G7 G8 69 70}71 72 73:74 15 76 77 78 79 &© 


70 This card contains the availability of the document and the end-of-line 
mark. Example: : 
¥T O00 1110701 THE CENTER FOR VOCATIONAL AND TECHNICAL EDUCATION: THE OHIG STATE 
¥T O00 L1107O2UNIVERSITY: 1300 KEY pads COLUMBUS, OHIO 43219 $2.00). 
ff z2ae5878 310) 416 a ahr Bawenannpin a5 25 37 38.29 [aa Taba ae S0fsn e753 Br 8 59 bOfet e252 Get oo art SOTO: 7 7415187773 190) 


Pe hd 


80 The Journal Citation is on this card. There is also an ¢..1-of-line mark. 
Example: 


90 The date, pages and any descriptive note are on this line and editing 
marks are also used. The first seven spaces starting with column 15 are 
used for the date, a tab tc separate from the pages; the page number and 
another tab to separate from tne descriptive note and the end-of-Line 
mark, Example: O90LDate — Page) or 0901Date ~7 Page Descriptive notel. 
The 2 tabs must always appear. Example : * 


GF G00 1110901 S1NDVES112P.4PAPER PRESENTED AT AMERICAN VOCATIONAL ASSOCIATION 


— _ —_——$$— 
[eae cert suhunusenestzauss 23 28 [ee 3H 35% apes en. 9 s _- 3a 57508! | [out By G4 G5 G7N ei 2 18 TT 7B 79 E 
#7 000 111 09020NF ERENCE! 


. frzaessreouienrsn _ 19 ft | 25 26 27 28 23 30 


_ 
46 6! <BR se S0]S1 $2 53 5495 A 


34 32 33-34-35 35 37 38 30 Ast 42 43 57 58 59 69] crea 6S ows oe ww 68 Toft 7210.74 15 16-77 1879 8] 72:13:14 75 16 77 78 79 BO) 


100 This class contains the Descriptors and uses the end-of-line mark. The 
descriptors are separated with a semi-colon and the major descriptors are 
designated with an asterisk. Example: 


¥7T 000 L111 001 NTEXTEOOKS) *STUDY GUIDES’ HIGH SCHOOLS POST SECONDARY EDUCATION: © 


923.456 7.8 SOpizisisie wis fat 22 23 24 25 26 27 28 22 30 RB 35 alee ATG Sa]s1 52 53 54 $5 96 57 58 59 SO5T 1 64651 1 68 69 70. 


AT 949 4111002 *INDIVIDUAL INSTRUCTIDN! a 
{i 23.4567 8 Ftrpsi2iswiste 18 | at 79 302. 320 SB 4 FITTV CLPE CLITerorrey (Cee ech eee 


Q 
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¥T 000 1112001AMERICAN YOCATIONAL ASSOCTAT - JH: OHO 
frzressresienn wo | eaun _ sepa BH RUS pe re ae 51 $3 £4 £5 Sb 57 $8 $9 GOEL G2 61 G4 6S 66 67 6B 69 70) 
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200 This is the Identifier class and uses the end-of-Jine mark. These are 
also separated with a sémi-colon. Example: 


Abstract Section 


The abstract section is handled the same way as the bibliographic section. 
The cards carry the VT number and line class starts with 300, and carries the 
Lor 2 card number. Example: 3001 - 3002, 3011 - 3012, etc. No zero is 
added before the line number. These cards also have a second run through the 
keypunch so the zone punch can be added to all lower case letters. 


Adding the Lower Case Punch 


Once the cards are punched correctly the first time, any line having lower 
case is run back through the punch a second time adding the zone punches that 
will cause the letters to be dropped to lower case on the main computer run 
for proofing and publication. This data is designated in lower case on white- 
forms. The zone punches are the numerical "zero" zone punch, which punches 

in the zero row and prints a zero over the letters A through I; the 12 punch 
which punches in the 12 row and prints an ampersand or "g" over letters J 
through R; and the 11 punch which punches in the ll row and. prints a dash 
over letters S through Z. The numeric shift must be held down on these 
punches. 


After a document is finished, and end-of-document card is placed at the end of 
the bib section and the abstract to designate to the computer that that docu- 
ment is finished. ‘The EOD card has a tab (“}) in column 1, with the rest of 
the card blank. , 
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APPENDIX B 


To 


JOB CONTROL LANGUAGE © 


MASTER EDIT 

SUBJECT QUARTERLY 

AUTHOR QUARTERLY 

SUPPORTING SERVICES QUARTERLY 
DOCUMENT NUMBER QUARTERLY 
CONVERSION OF DOCUMENT NUMBER 
SUBJECT ANNUAL 

AUTHOR ANNUAL 

SUPPORTING SERVICES ANNUAL 
DOCUMENT NUMBER ANNUAL - 


EDIT OF SUBJECT, AUTHOR, AND SUPPORTING SERVICES 


DOCUMENT NUMBER EDIT 
RIE FORMAT 


page 


NOTE: J.C.L. is for either object module or load module. 
Both forms are illustrated, If need to recompile, check 


with a programmer. 


Q 
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Bs 
RIE TO AIM/ARM 


Object Module 

//FARM BXEC PGM=LOADER, PARM="LET' ,TIME=2 

//SYSLIB DD DSN=SYS1. PLILIB, DISP=SHR 

//SYSLOUL DD SYSOUT=A 

//SYSLIN DD * 

//SYSPRINT DD SYSOUT=A 

//SYSIN DD * 

/* 

//VTSIN LD * 

/* 

//WORK DD UNIT=SYSDA,SPACE=(CYL,(1,1)),DISP=(,PASS),DCB=(RECFM=V, 
// LRBCLH=3736, BLESIZE=3740 ) 

//V2ABS DD UNIT=SYSDA,SPA =(CYL, (1,1) ),DCB=(RECFM=V, LRECI=2000, 
// BIKSIZE=2001),DISP=(,PASS) 


//RIB DD UNTT=2400,VOL-SER=ERIC25 , DISP=OLD , DSN=VTERIC, DCB=(RECEM=V, 


—// URECI=3617, BLKSTZE=3625 ) 


WORK is the data set for the MASTER records. The normal storage 
media will be magnetic tape. 


VTABS is the data set for the abstract records. 


RIE is the ddname for the data set containing the original records 
in RIE format. 


2. Ioad Module 


//SOBLIB DD DSN-ERICLIB, DISP=SHR 
//RIETOUT EXEC PGM=VTBIB,TIME=2 
//SYSFRINT DD SYSOUT=A 

//SYSIN DD * 

/* 


//NISIN DD * 


/* 


Jw 
oS 
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ve 


RIE TO AIM/ARM (cont'd. ) 


Load Module (cont'd. ) 


" //WORK DD UNTT=2400, VOL=SER=ERICB,DISP=(, PASS), 


// DCB=( RECFM=V, LRECL=3736, BLKSIZE=3'7h0 ) 
//VWYABS DD UNTT=2.00 , VOL-SER=ERICA, DISP=( PASS), 
// DCB=(RECFM=V, LRECI=2000, BLKSIZE=2004 ) 

// RIE DD UNIT=2400 , VOL=SER-ERIC25 ,DISP-OLD, 


If DSN=VTERIC, DCB=( RECFM=V, LRECI=3617 , BLKSIZE=3625 ) 


G2 
ie) 


i. 


10. 
MASTER 

Object Module 
//FARM EXEC PGM=LUADER, PARM=" LET’ ,TIME=2 
//SYSLIB DD DSN=SYS1. PLILIB ,.DISP=SHR 
//SYSLOUT DD SYSOUI¥A 
//SYSLIN DD * MASTER obj. follows 

obj. deck - 
/* 
//SYSPRINT DD SYSOUT=A 
//ERRE DD SYSOUT=A Print erfor messages 
//MASTER DD UNTT=2400, VOL=SER=ERICO"., LABEL=(5,S1),DSN=FARM, 
// DCB=(RECFM=V, LRECI=3736, BLKSTZE=3740) , DISP=(NEW, KEEP) 
//SYSIN DD * Control cards and VT-ED deck 


see MASTER listing for card information 


/* 
//CARDS DD * bibliographic cards 
/* 


The card //CARDS DD * muy be replaced with a card yeferring to 
28 tape if cards are on tape, e.g.: 


//CARDS DD UNTT=2400, VOL~SER=ERIC18 , LABEI=(10,S1,),DISP=(OLD ,KEEP) 
// DSN=CFAIM T,DCB=( RECEM=FB, LRECL=80, BEKSIZE=3200 ) 

load Module 

//SOBLIB DD DSNEERICLIB, UNIT=2314-, VOI=SER=CLOO9L, DISP=SHR 

//FARM EXEC PGM=MASTER,TIME=2 

//SYSPRINT DD SYSOUT=A 

//ERRE DD SYSOUT=A 

//MASTER DD definition of tape to hold records 

//SYSIN DD * control cards 

/* | 


//CARDS DD definition of tape holding cards or * 4f card ingt 


{= 
4 


ABSTRACT 


1. Object Module 
//FARM EXEC POMSLOADER, PARM=" LET’ , TIME=2 
//SYSLIB DD DSN=SYS1. PLILIB,DISP-SHR 
//SYSLOUT DD SYSOUT=A 
//SYSLIN DD * object deck for abstract 
//SYSPRINT DD SYSOUT=A 
//SORTIN DD UNTT=2100, YOI<SER=ERIC27 , DSN=FLRMABS ,DISP=(, PASS), 
// DCB=( RECFM=V, LRECL=2000 , BIKSIZE=2004 ) 
//SYSIN DD * control data 
/* 
//CARDS DD * abstract data 
/* 

2. toad Module 
//JOBLIB DD DSN=ERICLIB ,DISP=SHR 
//ABS EXEC PGM=ABSGEN ,TIME=2 
//S¥SPRINT DD SYSOUT=A 
//SORTIN DD 17-2400, VOL-SER-ERIC27 ,DSN-FLRABS, DISP-(, PASS), 
// DCB=(RECEMEV , LRECL=2000, BLKSIZE=200} ) 
//S¥SIN DD * control data 
/* 
//CARDS DD * abstract data 


/* 


ERIC 4j 
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12. 
MASTER AND ABSTRACT SORT 

//JOBLIB DD DSN=SYS1. JOBLIB, DISP=SHR 
//SORT EXEC PGM=IERRCOOO, TIME=1 
//sxsour DD SYSOUI=A 
//SORTLIB DD DSN=SYS1. SORTLIB,DISP=SHR 
//sORTIN DD uw1t-2400, VOL=SER-ERICO!, DSN=SUAIM LABEL (i+ SL) »DISP=OLD , 
/ /DcB=(RECEM=V ,LRECI-3736 » BLKSIZE=3740 ) 
//SORTOUT DD UNTTESYSDA ,SPACE=(CYL, (151)) ,DISP=(, PASS) » 
//DCB=(REDFM=V , LRECL=3736 , FLKSIZE=3740 ) 
//SORTWKOL DD UNITSSYSDA ,SPACE=(TRK,20, , CONTIG ) 
//SORTWKO2 DD UNIT=SYSDA , SPACE=(TRK,20, ,CONSIG) 
//SORTWKO3 PD UNIT=SYSDA, SPACE=(TRK,20, , CONTIG) 
//soRTWKOL DD UNT@=SYSDA ,SPACE=(TRK,20, , CONTIG) 
//SORTWKOS DD UNTT=SYSDA ,SPACE=(TRK,20, , CONTIG) 
//SORTWKOS DD UNTT=SYSDA, SPACE=(‘TRK,20, , CONTIG) 
//SXSIN Dv * 
The control cards in the SYSIN data set are of the form 

— FIELDS=(x,2,CH,A,5,10,CH,A) ,S1ZE=E500 


The number used in place of x depends on the information being sorted. 


Abstract data use 17 
ARM data use 23 
AIM data use 21 


42 
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2. 


Object Module 

//PARM EXEC PGM=LOADER, PARM='LET* , TIME=2 

//SYSLIB DD DSN=SYSL. PLLLIB, DISP=SHR 

//SXYSLOUT DD SYSOUT=A 

//SXYSLIN DD * 

//SXSPRINT DD SYSOUT=A 

//OUT DD SYSOUT=A ,DCB=(RECFM=VA , LRECL=137 ,GLKSIZE=1l41 ) 


//NEWMAS DD UNIT=2400, DISP=NEW ,DCB=(RECEM=V , LRECI=3736, BLKSIZE=3740), 
VOL=SER=ERIC 


//MASTER DD DSN=*.SORT..SORTOU! ,DISP=(OLD, PASS) 

//PUNC:1 DD DUMMY ,DCB=(RECFM=F ,LRECL=80 , BLKSIZE-80 ) 

//SORTOUT DD UNITS2400 , VOL=SER=ERIC21 ,DSN=SUAMABS ,DCB=(REDFM=V, 
// LRECL=2000 , BLKSTZE=2004 ) ,DISP=OLD 

//SXSIN DD * 

NEWMAS is the MASTER data set with the resume pages added. 


MASTER is. the bibliographic data without page numbers 


PUNCH is for the VI-ED resume page decks. 


SORTOUT is the abstract data to be read. 
Load Module 

//JOBLIB DD DSN=ERICLIB,DISP=SHR 
//ABSPRT EXEC PGM=At..INT, TIME=2 
//SYSPRINT DD SYSOUT=A 


//OUL DD UNIT=24.00 , DIS P=NEW , DCB=(RECFM=V, LRECI=3736 , VLKSIZE=3740 ), 
VOL=SER=ERIC 


//MASTER DD DSN=*.SORT.SORTOUT ,DISP=(OLD, PASS) 

//PUNCH DD DUMMY, DCB=(RECFM=F ,LRECL=80 , BLKSIZE=80 ) 

//SORTOUT DD UNTE=2);C0 ,VOL=SER=ERIC21, DSN~SUAMABS ,DCB=(RECFM=V, 
// URECL=2000, BLKSIZE=2G04 ) ,DISP-OLD 

//SXSIN DD * 


ais 


1h. 
MASTER EDIT 


1. Obgect Module 
//FARM EXEC PGM=LOADER, PARM='LET’ ,TIME=2 
//SYSLIB DD DSN=SYS1. PLILIB, DISP-SHR 
//SYSLOUT DD SYSOUT=A 
//SYSLIN DD ¥ object deck for MASTER edit 
/* 
//SYSPRINT DD SYSOUT=A 
//ERRE DD SYSOUT=A print errer messages 
//SYSIN DD * control cards and VI-ED deck 
/* 
//caRDS DD * bibliographic information for edits 
/* 
//MASTL DD UNIT=2400,DISP=( OLD ,KEEP) , LABEI=(4,Si.), DSN=WNTAIM, 
// DCB=(RECFM=V , LRECI=3736, BLKSIZE=3740 ) , VOL=SER=ERICO2 
//MASIER DD UNIT=2400 , DISP=( NEW, KEEP), LABEI=( 1,S1,)DSIEWNTAIM, 
// DCB=(RECEM=¥, LRECI=3736, BLKSIZE=3740 ) , VOL=SER=ERICOW 
MAST 1 is the data set to be edited. 
MASTER will contain the edited bibliographic file. 
2. Toad Module 
//JOBLIB DD DSN=ERICLIB, DISP=SHR 
//MASED EXEC PGM=MASEDT, TIME=2 
//SYSPRINT DD SYSOUT=A 
//ERRE DD SYSOUT=A print error messages 
//SYSIN DD * control cards and VI-ED deck 
/* 
//CARDS DD * bibliographic information for eidts 
/* 
//MASTL DD UNTT=2400,DISP=( OLD, KEEP), LABEI= (4,SL),DSN=WNTAIM, 
// DCB=( RECFM=V , LRECL=3736 , BLKSIZE=3740 ) , VOL=SER-ERICO2 
//MASTER DD UNTT=2400,DISP=( NEW, KEEP), LABEI=(1,SL)DSN=WNTAIM, 
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15 
SUBJECT QUARTERLY 
Object Module 
//FARM EXEC PGM=LOADER, PARM=' Lav? ,TIME=2 
//S¥SLIB DD DSN=SYS1. PLLLIB,DISP=SHR 
//SYSLOUL DD SYSOUT=A 
//SYSLIN DD * quarterly subject object module 
/* 
//SYSPRINT DD SYSOUT=A 
//ERRE DD SYSOUT=6. 
//MASTER DD UNTT=2400 ,DSN-WNTAIM,DISP=(OLD, KEEP) ,LAFEL=(1,SL), 
// DCB= (RECFM=V , LRECL=3736 ,FLKSIZE-3740 ) ,VOL=SER=ERICOK 
//SORTLIB DD DSN=SYS1.SORTLIB,DISP=SHR 
//SORTIN DD UNIT=SYSDA ,DISP=(NEW,DELETE) ,SPACE=(C¥t,(1,1)), 
// DSN=UNSUB ,DCB=(RECFM=V , LRECL=573 , BLKSIZE=577 ) 
//SORTOUT DD UNI ==SYSDA ,DISP=(NEW,DELETE) ,SPACE=(CYL,(1,1)), 
//DSN=STSUB , DCB=(RECFM=V ,LRECL=573 , BLKSIZE=57T ) 
//SORTWKOL DD UNI'T=SYSDA ,SPACE=(TRK,20, , CONTIG) 
//SORTWKO2 DD UNIT=SYSDA ,SPACE=(TRK,20, , CONTIG) 
/{SORTWKO3 DD UNIT=SYSDA ,SPACE=(TRK,20, , CONTIG) 
//S( .EWKOK DD UNIT=SYSDA ,SPACE=(TRK,20, , CONTIG) 
//SORTWKO5 DD UNIT=SYSDA , SPACE=(TRK,20, , CONTIG) 
//SORTWKO6 DD UNIT=SYSDA ,SPACE=(TRK,20, , CONTIG) 
//S¥SOUT DD SYSOUT=A | 
//OUrs DD SYSOUT=A ,DCR= (RECFMEFA ,LRRCL=133 ,BLKSIZE=133) 
//SUB DD UNTT=24400 , DSN=AIMF2 , DISP= (NEW, KEEP) ,LABEL=(1,SL) , 
//SXSIN DD * *#* SYSIN DATA ON CARDS *** control for page format 
/* 


OUTS is the index printout. When camera-ready is prepared, this 
ecard is replaced by DD card Gefining the tape data set. 4 


Ao 


15. 
SUBJECT QUARTERLY (cont'd. ) 


2. Ioad Module 
//JOBLIB DD DSN=ERTCLIB,DISP=SHR 
//SUBS EXEC) PGM=QSUBJ ,TIME=4 
//SYSPRINT DD SYSOUT=A 
//ERRE DD SYSOUT=A 
//MASTER DD UNTT=2400, DSN-WNTAIM,DISP=( OLD, KEEP), LABEI=(1,SL), 
// DCB=( RECFM=V , LRECI=3736, BLKSIZE=3740 ) , VOL=SER=ERICO4 
//SORTLIB DD DSN=SYS1.SORTLIB ,DISP=SHR 
//SORTIN DD UNIT=SYSDA ,DISP=( NEW,DELETE ),SPACE=(CYL,(1,1)), 
// DSN=UNSUB ,DCB=( RECFM=V , LRECL=573, BLKS IZE=577 ) 
//SORTOUT DD UNIT=SYSDA, DISP=(NEW,DELETE),SPACE=(CYL,(1,1), 
//DSN=STSUB ,DCB=( RECFM=V, LRECI=573, BLKSIZE=577 ) 
//SORTWKO1L DD UNIT=SYSDA,SPACE=('TRK, 20, , CONTIG ) 
/ /SORTWKO2 ‘ 
/ /SORTWKO3 " 
//SORTWKOL. = 
/ J SORTUKOS . 
/ /SORTWKOG " 
//SYSOULT DD SYSOCUT=A. 
//OUTS DD SYSOUT=A, DCB=(RECFEM=FA, LRECI=133, BLKS IZE=133) 
//SUB DD UNTT=2400,DSN-AIMF2,DISP=(NEW, KEEP), LABEI=(1,SL), 
//SYSIN DD * *** SYSIN DATA ON CARDS *** control for page format 


/* 


io) 
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AUTHOR QUARTERLY 
1. Obgect Module 


//QAUTH EXEC PGM=LOADFR,PARM='L&T' ,TIME=2 
//SYSLIB DD DSN=S¥S1. PLULIB, DISP=SHR 
//SYSLOUT DD SYSOUT=A 
//SYSLIN DD * object deck for q. author 
//SYSPRINT DD SYSOUT=A 
//MASTER DD UNIT=2400,VOL=SER=ERICO2 ,DISP=OLD, DSN=SPRARM 
//SORTIN DD UNIT=SYDA,SPACE=(CYL, (2,1)) ,DCB=(XECFM=V, LRECL=514,, BLKSIZE=568 ) 
//SORTOUT DD UNTT=2400, DSN=SPAUT , DCB=* . SORTIN, DISP=(KEEP) , 
//VOL=SER=ERIC20 
//SORTWKOL DD UNIT=SYSDA,SPACE=(TRK,20, ,CONTIG) 
//SORTWKO2 DD UNIT=SYSDA ,SPACE=(TRK,20, , CONTIG) 
//SOREWKO3 DD UNIT=SYSDA,SPACE=(TRK, 20, ,CCATIG) 
//SORTWKOL DD UNIT=SYSDA ,SPACE=(TRK,20, , CONTIG) 
//SORTWKOS DD UNIT=SYSDA,SPACE=(TRK,20, ,CONTIG) 
//SORTWKO6 DD UNIT=SYSDA,SPACE=(TRK,20, ,CONTIG) 
//SYSOUT DD SYSOUT=A 
//SORTLIB DD DSN=SYS1.SORTLIB , DISP=SER 
//our DD SYSOUT=A,DCB=(RECFM=VA ,LRECL=133 , BLKS IZE=137 ) 
//SYSIN DD * format control data, 
/* 
OUT is index being created. 
2. Load Module 
//JOBLIB DD DSN=ERICLIB,DISP=SHR 
//QAUTH EXEC PGM=QAUTHOR ,TIME=2 
//SYSPRINT DD S¥YSOUT=A _ 
//MASTER DD UNIT=2400,VOL=SER=ERICO2 , DISP=OLD , DSN=SPRARM 
ERIC /s0RtI8 DD UNIT=SYSDA ,SPACE=(CYL, (1,1) ),DCB=(Xecfm=V , LRECL=514 ,BLKS IZE=568 ) 


//SORTOUT DD UNTT=2406, DSN=SPAUT , DCB=*. SORTIN, DISP=(KEEP) » 4’? 
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AUTHOR QUARTERLY (C°OWT'D.) 
// VOL=SER=ERIC20 
//SORTWKOL DD UNIT=SYSDA,SPACE=(TRK,20, , CONTIG) 
//SORTWKO2 DD UNIT=SYSDA,SPACE=(TRK,20, , CONTIG) 
//SORTWKC3 DD UNIT=SYSDA ,SPACE=(TRK,20, , CONTIG) 
//SORTWKO DD UNIT=SYSDA,SPACE=(TRK,20, , CONTIG) 
//SORTWKOS DD UNIT=SYSDA ,SPACE=:(TRK,20, ,CONTIG) 
//SORTWKO6 DD UNIT=SYSDA,SPACE=(TRK,20,,CONTIG) 
//SYSOUT DD SYSOUT=A 
//SORTLIB DD DSN=SYS1.SORTLIB , DISP=SHR 
//ourt DD SYSOUT=A,DCB=(RECFM=VA , LRECL=133 , BLKSIZE=137 ) 
//SYSIN DD * format control data 


/* 


(Pe 
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ERIC 
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_ SUPPORTING SERVICES QUARTERLY 

Object Module 

//®ARM EXEC PGM=LOADER ,PARM='LET' ,TIME=2 

//SYSLIB DD DSN=SYS1.PLLLIB, DISP=SHR 

//S¥SLOUL DD SYSOUT=A 

//SYSLIN DD * supporting services object module 

/* 

//SYSPRINT DD SYSOUT= 

//ERRE DD SYSOUT=A 

//MASTER DD UNT?=2400, DSN=WNTAIM, LABEL=(4,SL) ,DISP=(OLD, KEEP), 
// DCB=(RECFM=V , LRECL=3736 , BLKSIZE3 740 ) , BOL=SER=ERICO2 
//SORTLIB DD DSN=STS1.SORTLIB ,DISP=SHR 

//SORTIN DD UNIT=SYSDA , DISP=(NEW, DELETE) ,SPACE=(CYL, (1,1)), 
// DSN-UNSUB , DCB=(RECFM=V , LRECL=444 , BLKSIZE=H48 ) 
//SORTWKOL DD UNTT=SYSDA ,S PACE=(TRK, 20, , CONTIG) 

//SORTWKO2 DD UNIT=S YSDA , SPACE=(TRK, 20, , CONTIG) 

//SORTWKO3 DD UNTT=SYSDA ,SPACE=(TRK,20, , CONTIG) 
//SORTWKOL DD UNIT=SYSDA ,SPACE=(TRK,20, , CONTIG) 

//SORTWKO5 DD UNIT=SYSDA ,SPACE=(TRK,20, , CONTIG) 

//SORTWKO6 DD UNIT=SYSDA , SPACE=(TRK,20, , CONTIG) 

//SYSOUT DD SYSOUT=A 

//ours DD SYSOUT=A , DCB=(RECFM=FA , LRECL=133 , BLKSIZE=133 ) 
//SUB DD UNIT=24.00, DISP=(NEW, KEEP), LABEL=(1,SL) , DSN=AIMFe , 
// DCB=(RECFM=FB , LRECL=18 , BLKSTZE=1800),VOL=SER- %tICOS 
//S¥SIN DD * format control cards 

/* 

ouTs is the index being created 

Load Module 


//JOBLIB DD DSN=ERICLIB ,DISP=SHR 
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SUPPORTING SERVICES QUARTERLY (ce 
//Q8S “%XEC PGM=QSUPSER , TIME=2 

//SYSPRINT DD SYSOUT=A 

//ERRE DD SYSOUT=A 

//MASTER DD UNTIT=2400, DSN=WNTAIM, LABEL=(4,SL) , PISP=(OF.D, KEEP) , 
// DCB=(RECFM=V , LRECL=3736, BLKS IZE=3740 ) , VOL=SER=ERIC 02 
//SORTLIB DN DSN=STS1.SORTLIB ,DISP=SHR 

//SORTIN DD UNIT=SYSDA,: .NEW,DELETE ) ,SPACE=(CYL, (1,1)), 
// DSN=UNSUB., DCB=(RECFM=V, LRECL=444, BLKS TZE=h48 ) 

//SORTWKOL DD UNTT=SYSDA ,SPACE=(TRK,20, , CONTIG) 

//SORTWKO2 DD UNIT=SYSDA ,SPACE=(TRK,20, , CONTIG) 

//SORTWKO3 DN UNIT=SYSDA ,SPACE=(TRK,20, , CONTIG) 

//SORTWKOL DD UNIT=SYSDA , SPACE=(TRK,20, , CONTIG) 

//SORTWKOS DD UNIT=SYSDA ,SPACE=(TRK,20, , CONTIG) 

//SORTWKOG DD UNIT=SYSDA,SPACE=(TRK,20, , CONT <*. 

//SYSOUT DD SYSOUT=A 

//ours DD SYSOUT=A , DCB=(RECFM=FA ,, LRECL=133 , BLKSIZE=133 ) 

//SUB DD UNIT=2400,DISP=(NEW, KEEP) , LABEL=(1,SL) ,DSN=AIMF2, 

// DCB=(RECSM=FB,LRECL=15 , 3LKSIZE=1800 ) , VOL=SER=ERICOD 

/ /SYSIN DD * format coutrol cards 


/* 


re) 
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DOCUMENT NUMBER QUARTERLY 
1. Object Module 
//PARM EXEC PGM=LOADER, PARM='LET' , TIME=2 
//SYSLIB DD DSN=SYS1.PLILIB,DISP=SHR 
//SYSLCUT DD SYSOUT=A 
//SYSLIN DD * document number object module 
/* 
//S¥SPRINT DD SYSOUT=A 
//SORTLIB DE DSNAME=SYS1.SORTLIB ,DISP=SHR 
//SORTIN DD DENAME=INSORT , UNIT=SYSDA , DISP=(NEW,DELETE) » 
//soRtTOUT DD DSNAMEI=OTS ORT , UNIT=SYSDA , DISP=(NEW, DELETE) , 
//SORTWKOL DD UNIT=SYSDA,SPACE=([RK,20, , CONTIG) 
//SORTWKO2 DD UNIT=SYSDA,SPACE=(TRK,20, , CONTIG) 
//SORTWKO3 DP UNTL=SYSDA,SPACE=(TRK,20, , CONTIG) 
//SORTWKO4 DD UNTT=SYSDA,SPACE=(TRK,20, , CONTIG) 
//SORTWKOS DD UNIT=SYSDA,SPACE=(TRK,20, , CONTIG) 
//SORTWKO6 DD UNIT=SYSDA,SPACE=(TRK,20, ,CONTIG) 
//sy¥sout DD SYSOUT=A ) 
/) #MASTER DD NSN=WNTAIM, UNIT=2400 , VOL=SER=ER1CO4, DISP=OLD , LABEL=(1,SL) 
//ANNUAL DD DSN=ANNFIL, UNIT=2400 , DISP=(NEW,KEEF), LABEL=(1,Su), 
// DCB=(REC¥M=FB , LRECL=18,, BLKS IZE=1800 ) , VOL=SER=ERIC13 
//INDIX DD SYSOUT=A,DCB=(RECFM=FBA , LRECL=133 , BLKSIZE=133 ) 
//S¥SIN DD* fermat contol cards 
/* 


INDIX is the IMDEX printout. 
ANNUAL is armual subset file. 


2. Toad Module 
//JOBLIB DP DSN=ERICLIB,DISP=SHR 
e //DOCNUM EXEC PGM=DOCNO,TIME=2 
aie //SYSPRINT DD SYSOUT=A Si 


re) 
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DOCUMENT NUMBER QUARTERLY (cont'd. ) 
//SORTLIB DD DSNAME=SYSL.SORTLIB ,DISP=SHR 
//SORTIN DD DSNAME=INSORT , UNIT=S YSDA, DISP=(NEW, DELETE) , 
//SORTOUT DD DSNAME=OTSORT, UNIT=SYSDA ,DISP=(NEW,DELETE) , 
//SORTWKO]L DD UNTT=SYSDA,SPACE=(TRK, 20, ,CONTIG ) 
//SORTWKO2 DD UNIT=SYSDA,SPACE=(TRK,20, ,CONTIG) 
//SORTWKO3 DD UNIT=SYSDA,SPACE=(TRK,20, ,CONTIG) 
//SORTWKOL DD UNTT=SYSDA,SPACE=(TRK,20, ,CONTIG) 
//SORTWKOS DD UNTT=SYSDA,SPACE=(TRK, 20, ,CONTIG) 
//SORTWKO6 DD UNIT=SYSDA,SPACE=(TRK,20, ,CONTIG) 
//SYSOUT DD SYSOUT=A 
//MASTER DD DSN=WNTAIM, UNIT=24.00, VOL=SER=ERICOL ,DISP=OLD , 
// LABEL=(1,S1,) 
//ANNUAL DD DSS*ANNFLL, UNIT'=2400 ,DISP=(NEW, KEEP) ,LABEL=(L,SL) 5 
// DCB=(RECEM=FB , LRECL=18 , BLKSIZE=1800 ) , VOL=SER=ERIC13 
//INDIX DD SYSOUT=A,DCB=(RECFM=FBA , LRECL=133 , BLKS IZE=133 ) 
//SYSIN DD * format control cards 


/* 


Ch 
tw 


-23 


CONVERSION OF DOCUMSNT NUMBER 

i. Object Deck 
//FARM EXEC PGM=LOADER, PARM='LET' ,TIME=2 
//SYSLI8 DD DSN=SyS1.PLILIB,DISP=SHR 
//SYSLOUT DD SYSOUT= 
//SYSLIN LD *  conversic: object deck 
/* 
//SYSPRINT DD SYSOUT=A 
//SYSIN DD * format control deck 
/* 
//ourts DD SYSOUT=A,DCB=(RECFM=FA , LRECL=133 ,BLKSIZE~133 ) 
//SORTLIB DD PSN=SYS1.SORTLIB ,DISP=SHR 
//SORTIN DD UNIT=2400,DISP=(OLD , KEEP) ,DSN=CONVRT , LABEL=(2,SL9, 
t/ VOL=SER=ERICO4, DCB=(RECFM=FB, LRECL=20 , BLKSIZE=200 ) 
//SORTOUT DD UNIT=SYSDA ,SPACE=(CYL, (1,1) ),DISP=(NEW, DELETE) , 
// DSN=TEMPST , DCB=(RECFM=FB , LRECL=20 , BLKSIZE=200 ) 
//SORTWKOL DD UNTT=SYSDA,SPACE3(TRK,20, , CONTIG) 
//SORTWKO2 DD UNTIT=S YSDA , SPACE=(TRK,20, , CONTIG) 
//SORTWKO3 DD UNTT=SYSDA,SPACE=(TRK,20, ,CONTIG) 
//SORTWKOL DD UNET=SYSDA,SPACE=(TRK,20, , CONTIG) 
//SORTWKO5 DD UNT2=SYSDA ,SPACE=(TRK,20, , CONTIG) 
//SORTWKOS DD UNTT=SYSDA ,SPACE=(TRK,20, , CONTIG) 
//S¥SOUT DD SYSOUT=A 
oUuTS is the index output. 
SORTIN is accumulated VI-ED cards. 
This program is used for both the quarterly ani the annual conversion 
of document rumber index. 


2. Toad Module 


//JOBLIB DD DSN=ERICLIB ,DISP=SHR 


4 


63 


o_ 
ERIC 


el. 
CONVERSION OF DOCUMENT NUMBER (cont'd. ) 


//CONDOC EXEC PGM=CONVER,TIME=1 

//SYSPRINT DD SYSOUT=A 

//SXSIN DD * format control deck 

/* 

//ouTts DD SYSOUT=A , DCB= (RECFM=FA , LRECL=133 , BLKSIZE=’.33 ) 
//SORTLIB DD DSi ‘31. SORTLIB,DISP=SER 

//SORTIN DD UNIT=2400, DIS P=(OLD, KEEP) ,DSN=CONVRT , LABEL=(s , SLO, 
// VOL=SER=ERICO!, DCB= (RECFM=FB, LRECL=20, BLKSIZE~200) 
//SORTOUT DD UNIT=SYSDA, SPACE=(CYL, (1,1) ),DISP=(NEW,DELETE), 
// DSN=TEMPST , DCB=(RECFM=FB, LRECL=20, BLKSIZE=20 ) 
//SORTWKOL DD UNI'T=SYSDA ,SPACE=(TRK, 20, , CONTIG) 

//SORTWKO2 DD UNI'T=SYSDA ,SPACE=(TRK, 20, , CONTIG) 

//SORTWKO3 DD UNIT=SYSDA ,SPACE=(TRK,20, f° ITIG) 

//SORTWKO4 DD UNIT=SYSD1,SPACE=(TRK, 20, , CONTIG) 

/{SORTWKOS DD UNIT+SYSDA,SPACE=(TRK,20, ,CONTIG) 

//SORTWKCS DD UNIT=SYSDA , SPACE=(TRK,20, , CONTIG) 


//SYSOUT DD SYSOUT=A 


U, 
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SUBJECE ANNUAL 
1. Object Module 
//FARM EXEC PGM=LOADER, PARM=' LET" , TIMB=2 
//SXYSLIB DD DSN=SYS1. FLLLIB,DISP-_dR 
//SYSLOUT DD SYSOUT=A 
II SYSLIN DD * annual subject object deck 
/* | 
//SYSPRINT DP SYSOUT=A 
//SYSIN DD * format control errds 
/* 
//SORTLIB DD DSN=SYS1.SOxTLIB .CISP=SHR 
//SORTIN DD UNIT=2400,DISP=(OLD,KEEP) , LABEL=(1,SL) ,DSN=SBL, 
//SORTOUT DD UNIT=SYSDA ,DISP=(NEW,DELETE) ,SPACE=(CYL,(4,2)), 
// DSN=SORTED ,DCB=(RECFM=FB,LREC =11:0, BLKSIZE=11.00) 
//SORTWKOL DD UNIT=SYSDA,SPACE=(CYL(3)) 
//SOnTWKO2 DD UNTT=SYSDA ,SPACE=(C¥z.(3)) 
/f/SORTWKO3 DD UNIT=SYSDA,£ a=(cyn(3 )) 
//SORTWKO} DD UNIT=SYSDA,SPACE=(CYL(3 )) 
//SORTWKO5 DD UNIT=SYSDA,SPACE=(CYL(3)) 
//SORTH.O6 DD UNIT=SYSDA,SPACE=(CYL(3)) 
//SYSOUL DD SYSOUT=A 
//OUTS DD SYSOUT=A, DCB=(RECFM=FBA , LRECL=133 , BLKSIZE=665 ) 


OUTS is the data set for the index. 
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SUBJECT ANNUAL (cont'd. ) 
2. Toad Module | 
//JOBLIB DD DSN=ERICLIB,DISP=SHR 
//SUBJ EXEC PGM=ASUBJ ,TIME=3 
//S¥SPRINT DD SYSOUT=A 
//SXYSIN DD * format control cards 
/* 
//SORTLIB DD DSN=SYSL.SORTLIF ,DISP=Siin 
//SORTIN DD UNIT=240), DISP=(OLD, KEEP) ,LABEI=(1,SL),DSN=SBHL, 
//SORTOUL DD UNIT=SYSDA ,DISP= (NEW ,DELETE) ,SPACE=(CYL,(4,2)), 
// DSN=SORTED , DCB=(RECF.=FB,LRECL=140, BLKSIZE=1400) 
//SORTWKOL DD UNIT=SYSDA,SPACE=(CYL,(3)) 
//SORTWKO2 DD UNIT=SYSDA,SPACE=(CYL, (3)) 
//SORTWKO3 DD UNIT=SYSDA,SPACE=(CYL,(3)} 
//SORTWKOL DD UNIT=SYSDA,SPACE=(CYL, (3)) 
//SORTWKOS DD UNIT=SYSDA,SPACE=(CYL,(3)) 
//SORTWKO6 DD UNIT=SYSDA,SPACE=(CYL,(3)) 
//SYSOUT DD SYSOUT=A 


//ours DD SYSOUT=A ,DCE=(RECFM=FRBA , LRECL=133 , BLKSIZE=665 ) 


re) 
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27. 
AUTHOR ANNUAL 


Object Module 

//PARM EXEC PGM=lOADER, PAFM="LET' ,TIME=2 

//SYSLIB DD DSN=SYS1.PLLLIB , DISP=SHR 

//SYSLOUT DD SYSOUT=A 

//SYSLIN DD * 

//SYSPRINT DD SYSOUT=A 

//STEPLIB DD DSN=SYS1-JOBLIB,DISP=SHR 

//SORTWKO). DD UNTT=S YSDA ,SPACE=(TRK,20), , CONTIG) 

//SOREWKO2 DD UNIT=SYSDA ,SPACE=(TRK,20, , CONTIG) 

//SCRTWKO3 DD UNIT=SYSDA,SPACE=(TRK,20, , CONTIG) 

//SORTWKOL DD UNIT=SYSDA ,SPACE=(TRK,20, , CONTIG) 

//SORTWKO5 DD UNTT=SYSDA ,SPACE=(TRK,20, , CONTIG) 

//SORTWKOG DD UNTT=SYSDA ,SPACE=(TRK,20, , CONTIG) 

//SORTOUT DD UNIT=SYSDA, SPACE=(CYL, (1;1))> 

//oDeB=(RECFM=V , LRECL=564, BLKS IZE=568 ) 

//SORTIN DD UNTT=2400 ,DCB=* .SORTOUT , VOL=(PRIVATE, RETAIN ,SER=ERIC17) » 
// DISP=(OLD, PASS ) ,DSN=ASRT 

// DD UNTT=2400 , VOL-SER=ERICLT , DCB=* .SORTOUT , DISE=(OLD, PASS ) ,LABEL=2, 
// DSW=AIMSPAUT . 

// DD UNTT=2400 , VOL=SER=ERIC2O , DSN=ARMS PAUT , DCB=* .SORTOUT , DISP=OLD 
//SORTLIB DD DSN=SYS1-SORTLIB, DIEP=SHR 


//SXSOUT DD SYSOUT=A 


//cur DD SYSOUT=A 


//SYSIN DD * 
/* 
Load Module 


//JOBLIB DD DSN=ERICLIB ,DISP=SHR 


28, 


AUTHOR ANNUAL (cont'd. ) 
//AAUTH EXEC FUM=AAUTHOR ,TIME=2 
//SYSPRINT DD SYSOUT=A 
//STEPLIB DD DSN=SYS1.JOBLIB,DISP=SHR 
//SORTWKO1 DD UNIT=SYSDA ,SPACE=(TRK,20, CONTIG) 
//SORTWKO2 DD UNIT=SYSDA,SPACE=(TRK,20, ,CONTIG) 
//SORTWKO3 DD UNIT=SYSDA ,SPACE=(TRK,20, , CONTIG) 
//SORTWKOL DD UNIT=SYSDA,SPACE=(TRK,20, , CONTIG) 
//SORTWKO5 DD UNIT=SYSDA ,SPACE=(TRK, 20, , CONTIG) 
//SORTWKO6 DD UNIT=SYSDA,SPACE=(TRK,20, ,CONTIG) 
//SORTOUT DD UNTIT=SYSDA ,SPACE=(CYL,(1,1)), 
// DCB=(RECFM=V , LRECL=564 , BLKS IZE=568 ) 
//SORTIN DD UNTT=2400, DCB=* .SORTOUT ,VOL=(PRIVATE ,RETAIN,SFR=ERICLT ) 
// BISP=(OLD,PASS ) ,DSN=ASRT 
// DD CNT. -2400,VOL=SER=ERICL7 ,DCB=* SORTOUT , DISP=(OLD, PASS ) .LABEL=2 
// DSN=AIMSPAUT 
// 2D UNIT=24.00 , VOL=SER=ERIC20 ,, DSN=ARMS PAUT , DCB=* .SORTOUT , DISP=OLD 
//SORTLIB DD DSN=SYS1.SORTLIB ,DISP=SHR 
//SXYSOUT DD SYSOUT=A 
//our DD SYSOUT=A 
//SYSIS DD * 


/* 


re) 
ERIC 


OF 


29. 
SUPPORTING SERVICES ANNUAL 
1. Object Module 
/FARM EXEC PGM=LOADER, PARM='LET' ,TIME= 

//SYSLIB DD DSN=SYS1.PLLLIB,DISP=SHR 

//SYSLOUT DD SYSOUT=A 

//SYSLIN DD * annual s.s. object deck 

/* 

//SYSPRINT DD SYSOUT=A 

//SYSIN DD * format control cards 

/* 

//SORTLIB DD DSN==SYS1.SORTLIB ,DISP=SHR 

//SORTIN DD UNIT=2400,DISP=(OLD, KEEP), LABEL=(1,SL),DSN=TESTSB , 
// DCB=(RECFM=FB, LRECL=18 , BLKSIZE=1800) , 

//SORTOUT DD UNIT=SYSDA,DISP=(NEW, DELETE) ,SPACE=(CYL, (4,2)), 
// DSN=SORTED , DCB=(RECFM=FB , LRECL=18 , BLKSIZE=1800) 
//SORTWKOL DD UNTT=SYSDA,SPACE=(CYL, (3)) 

/ /SORTWKO2 DD UNIT=SYSDA ,SPACE=(CYL, (3)) 

//SORTWKO3 DD UNIT=SYSDA,SPACE=(CYL, (3)) 

//SORTWKO4 DD UNIT=SYSDA,SPACE=(CYL, (3)) 

//SORTWKO5 DD UNTT=SYSDA,SPACE=(CYL, (3)) 

//SORTWKOG DD UNIT=SYSDA,SPACE=(CY1I,, (3)) 

//SYSOUT DD SYSOUT=A 

//OUrS DD SYSOUT=A,DCB=(RECFM=FA , LRECL=133 , BLKSIZE=133 ) 

2. Load Module 

//JOBLIB DD DSN=ERICLIB ,DISP=SHR 
//ASSR EXEC PGM=ASYPSRV ,TIME=3 


//SYSPRINE DD SYSOUT=A 


re) 
ERIC 


my 


Oi 


30. 
SUPPORTING SERVICES ANNUAL (cont'd. ) 


//SYSIN DD * formst control cards 

/* 

//SORTLIB DD DSN=SYS1L.SORTLIB , DISP=SHR 

//SORTIN DD UNTT=2400, DISP=(OLD, KEEP) , LABEL=(1,SL),DSN=TESTSB , 
// DCB=(RECFM=FB, LRECL=18 , BLKSIZE=1800) , 

//SORTOULT DD UNIT=SYSDA,DISP=(NEW,DELETE) ,SPACE=(CYL, (4,2)), 
// DSN=SORTED, DCB=(RECFM=FB, LRECL=18 , BLKSIZE=1800) 
//SORTWKOL DD UNIT=SYSDA,SPACE=(CYL,(3)), 

//SORTWKO2 DD UNIT=SYSDA,SPACE=(CYL,(3)),; 

//SORTWKO3 DD UNTT=SYSDA,SPACE=(CYL, (3))>; 

//SORTWKOL DD UNIT=SYSDA ,SPACE=(CYL, (3)}, 

//SORTWKOS DD UNTT=SYSDA,SPACE=(CYL, (3)); 

//SORTWKO6 DD UNIT=SYSDA,SPACE=(CYL, (3)), 

//SYSOUT DD SYSOUT=A 


//OUTS DD SYSOUT=A ,DCB=(RECFM=FA , LRECL=133,BLKSIZE=133 ) 


e 
ERIC 


aL, 
DOCUMENT NUMBER ANNUAL 
1. Object Module 
//VTISSUE EXE? PGM=LOADER, PARM='LET' , TIME=2 
//SYSLIB DD DSN=SYS1.PLLLIB,DISP=SHR 


J/SYSLOUT DD SYSOUT=A 


//3YSIN BD * V?-issue object deck 
. fe 

//SYSPRINT DD SYSOUT=A 

//SY¥SIN DD * control parameters 

jx | 


//SORTLIB DD DSN=SYS1.SORTLIB, DISP=SHR 


//SORTIN DD UNTT=2400 ,DISP=OLD,DSN=ANSUB1, 


// DCB=(RECFM=FB , LRECL=18 , BLKSIZE=1800 ) , VOL=SER=ERIC 


//SORTOUT DD UNIT=SYSDA,SPACE=(CYL, (1,1)),DCB=* .SORTIN 


//SORTWKOL DD UNIT=SYSDA,SPACE=(TRK,20, ,CONTIC) 
//SORTWKO2 DD UNIT=SYSDA,SPACE=(TRK,20, ,CONTIG) 
//SORTWKO3 DD UNIT=SYSDA,SPACE=(TRK,20, ,CONTIG) 
//SORTWKOK DD UNTT=SYSDA,SPACE=(TRK,20, ,CONTIG) 
//SORTWKOS DD UNIT=SYSDA,SPACE=(TRK520, yCONTIG) 
//SORTWKOG DD UNTIT=SYSDA,SPACE=(TRK,20, ,CONTIG) 
{/SYSOUT DD SYSOUT=A 
//ourTS DD SYSOUT=A 

2. Load Module 
//JOBLiB DD DSN-ERICLIB,DISP=SHR 
/ /WTISSUE EXEC PGM=ADNO,TIME=1 
//SYSPRINT DD SYSOUT=A 
//SYSIN DD * control parameters 


{* 


//SORTLIB DD DSN=SYS1.SORTLIB ,DISP=SHR 


‘<) 
ERIC //SORTIN DD UNTT=2400,DISP=OLD ,DSN-ANSUBL, 
1A Txt Provided by ENC | 


32. 

DOCUMENT NUMBER ANNUAL (cont'd.) 
{/ DCB=(RECFM=EB , LRECL=18 , BLKSIZE=1800 ) , VOL=SER=ERIC 
//SORTOUT DD UNIT=SYSDA ,SPACE=(CYL, (1,1)? ,DCB=* .SORTIN 
//SORTWKOL DD UNIT SYSDA ,SPACE=(TRK,20, , CONTIG) 
//SORTWKO2 DD UNIT SYSDA ,SPACE=(TRK,20, ,CONTIG) 
//SORTWKO3 DD UNTT SYSDA,SPACE=(TRK,20, ,CONTIG) 
//SORTWKOK DD UNIT SYSDA,SPACE=(TRK,20, ,CONTIG) 
//SORTWKOS DD UNIT SYSDA,SPACE=(TRK,20, ,CONTIG) 
//SORTWKOS DD UNIT SYSDA,SPACE=(TRK,20, , CONTIG) 
//SYSOUT DD SYSOUT= 


//ouTs DD SYSOUT=A 


ERIC = 


33. 
EDIT OF VOCATIONAL, AND SUPPORTING SERVICES, SUBJECT, AND AUTHOR 


1. Object Module 
//FARM EXEC PGM=LOADER, PARM="LET' , TIME=2 
//SYSLIB DD DSNESYS1. PLLLIB, DISP=SHR 
//SYSLOUT DD SYSOUT=A 
//SYSLIN DD * edit object deck 
/* 
//FIX DD UNIT=2400, DISP=( OLD ,KEEP), LABEI=(1,SL),DSN=ORTVC1, 
// Vol=a( PRIVATE ETAL .SPR=ERICO ) 
//TEMP DD UNIT=2400,DISP (NEW,KEEP),LABEI=(1,SL),DSN=QRTIVC1, 
// DCB=(RECFM=FB, LRECI=18 , BLKSTZE=1800 ), VOL=( ,RETAIN,SER=ERIC20 ) - 
FIX is the data set to be edited. 
TEMP is the edited data set. 
2. Isad Module 
//JOBLIB DD DSNSERICLIB ,DISP=SHR 
//EDIT EXEC PGM=SUBJSSA, TIME=2 
//SYSPRINT DD SYSOUT=A 
//S¥8IN DD * control and edit data 
/* 
//8IX DD UNTT=2400 ,DISP=( OLD ,KEEP), IABEI=(i,8L),DSN=QRTVCL, 
// VOL=( PRIVATE , RETAIN, SER=ERICO3 ) 
/{/TEMP DD UNTT=2400,DISP=(NEW,KEEP), LABEI=(1,SL)DSN=9QRTVC1, 


// DCB=(RECFM=FB, LRECL=18 , BLKSIZE=1800 ), VOIA( , RETAIN, SER=ERIC2O ) 


ERIC G3 


34. 
DOCUMENT NUMBER EDIT 


1. OBJECT MODULE 
// EXEC PGM=LOADER, PARM="LET ;TIME=2 
//SYSLIB DD DSiI=SYSL.PLILIB, DISP=SHR 
//SYSLOUT DD SYSOUT=A 
//SYSLIN DD * edit object deck 
/* 
//DISC DD UNIT=SYSDA, DSN=&&EDTOUT ,DISP=(OLD, PASS), 
// DCB=(RECEM=FB, LRECL=18, BLKSIZE=1800 ) . 
//TAPE DD UNIT=2400, VOL=SER=ERIC30,DISP=(NEW, PASS) , 
// DSNSEDITAPE, DCB=( RECFM=FB, LRECL=18,BLKSIZE=1800 ; 
//CARDS DD* data . 
/* | 
DISC is the data set to be edited. 


TAPE is the edited data set. . 


2. LOAD MODULE. 
//JOBLIB. DD DSN=ERICLIB,DISP=SHR 
//EDIT EXEC FGM=VIISSUE, TIME=2 
//SXSPRINT DD SYSOUT=A 
//CARDS DD * edit data 
/* | 
//DISC DD UNTT=SYSDA, DSN=&&EDTOUT , DISP=(OLD, PASS), 
// DCB=( RECFM=FB, LRECL=18 , BLKSIZE=1800 ) | 
//TAPE DD UNIT=2400,VOL=SER=ERIC30 ,DISP=( NEW, PASS), 


// DSNsEDITAPE, DCB=( RECFM=FB, LRECL=18 , BLKSIZE=1800 ) 


‘<) 
ERIC 


1. 


2. 


re) 
ERIC 


356 


RIE FORMAT 

Object Module 

//FARM EXEC PGM=LOADER, PARM=' LET' , TIME=2 

//SYSLIB DD DSN=SYS1. PLILIB,DISP=SHR 

//SYSLIN DD * 

/* 

//SYSPRINT DD SYSOUT=A 

//MASTER DD UNIT=2400, VOL=SER=ERIC26 , DISP=(MOD, KEEP) ,DSN=ARIM6970, 
// DCB=(RECFM=V , LRECL=6996 , BLKSIZE=7000 ) 

//RIE DD UNIT=2400, VOL=SER=ERICO4 , DSN=WNTAIM, 

// DCB=(RECFM=V , LRECL=3736, BLKSIZE=3740 ) ,DISP=(OLD, PASS) 
//ABSTRACT DD UNIT=2400, VOL=SER=ERIC ,DISP=OLD, 

// DCB=(RECFM=V ,LRECL=2000, BLKSIZE=2004 } 

MASTER is the final data set. The format will be the same as RIE 
and this will be the search data set. 

RIE is the data set containing bibliographic data. 

ABSTRACT is the abstract records for the appropriate records. 
Load Module 

//JOBLIB DD DSN=ERICLIB,DISP=SHR 

//RIEFORM EXEC PGM=VTTORIE,TIME=1 

//SXYSPRINT DD SYSOUT=A 

//MASTER DD UNIT=2400 , VOL=SER=ERIC26 ,DIS P= (MOD , KEEP) ,DSN=ARIM6970 
// DCB=(RECFM=V , LRECL=6996, BLKSIZE=7000 ) 

//RIE DD UNIT=2400, VOL=SER=ERICO , DSN=WNTAIM, 

// DCB=(RECFM=V , LRECL=3736 , BLKSIZE=37h0 ), DISP=OLD 

//ABSTRACT DD UNIT=2400,VOL=SER=ERIC ,DISP=OLD 


// DCB=(RECFM=V , LRECL=2000, BLKSIZE=200} ) 


Go 


re) 
ERIC 


35. 


APPENDIA C 


CONTROL DATA CARDS 


RIE TO AIM/ARM 
MASTER 

ABSTRACT 

RESUME PRINT 
MASTER EDIT 
SUBJECT QUARTERLY 
AUTHOR QUARTERLY 


SUPPORTING SERVICES QUARTERLY 


‘DOCUMENT NUMBER QUARTERLY 


CONVERSION OF DOCUMENT NUMBER 

SUBJECT ANNUAL 

AUTHOR ANNUAL 

SUPPORTING SERVICES ANNUAL 

DOCUMENT NUMBER ANNUAL 

EDIT OF SUBJECT, AUTHOR, & SUPFORTING SERVICES 


DOCUMENT NUMBER EDIT 


Gb 


page 


ERIC 


37. 


RIE TO AIM/ARM 


There are two tard data sets for this program. 


1. SYSIN 


The data is input in a free format. The first 
character is a blank on an 'A'. The blank will use 
columns 23 and 2h of the ecde card for the abstract 
code. A letter ‘A’ will use columns 20 and 21 for the 


abstract code. 


Next is the numeric giving the maximem number 
of documents to be extracted from the tape. The third 
item is the 1 to 7 character string ased to denot 


the issue to be published. 


2. VTSIN 

This data set consists of an accession number 
in columns 1 through 10 in the form VT 999 9995 and 
the form, field and category in columns 15 through 32. 
This code will be in the bibliographic record and the 
two characters designated by the SYSIN card will be in 


the abstract record. 


ae 


38. 
MASTER 


A. CARD 1: all fields are F(3,0) 


These are highest line vaiues for the various sections: 


Variable Section Current Value 

(max. names) 
1. WA Number of Personal Authors 2 
2. NiO Personal author 10 
3. NT Title 22 
he. NC Corporate author 34 
5. NS Sponsoring agency 42 
6. N50 Price section 50 
7. N6O Report °nd bureau 60 
8. N7O Availability 71 
9. N&O Journal citation 80 
10. wNgC - Date, page, desc. note 91 
11. NLOO Descriptor 104 
12. WN2oo Identi“ier 202 


B. CARD 2: NUMBEK OF DOCUMENTS TO BE PROCESSED (USED AS A LIMIT Nor 
ACLUAL COUNT) right justify in col. 1-5 


2. col. 1, A for AIM, blank for ARM 
2. col. 2-3, SEASON 'F ', 'W ‘, 'SP', cx ‘SU’ 
3. col. 4-7, current year 19... 
D. CARDS H-? 
2. col. 1-10, VI number (i.e. Clearinghouse accession number) 
2. cok. 11-30, ED or accession number 
3. col. 31-34, resume page 


EB. Blank card 


ERIC 68 


e.. 
ERIC 


39. 


ABSTRACT TAPE CREATION 


Data consists of one card with an A in column 1 if the 
abstracts should contain the sixth and seventh characters of the 
code. Column 1 contains a blank if the ninth and tenth 


characters are to be used. 


4O, 
RESUME SECTION PRINT PROGRAM 
The data set is contained in three mwrts: 
Part 1: one card containing A_OR BINK='A'; or A_OR_BLNK='}"' 
(‘A' for AIM, 'B' for ARM) 
Part 2: several cards in the form variable=value used for 


print control 


Variable Usage Current Value 
PRICE _COL Print column for 

price data 9 
CONTRACT COL Space from price to 

CONTRACT number 5 
GRANT_COL Space from contract to 

grant number 5 
PA_COL Space from contract or 

. grant number to program 

area 5 
VI_ED_SKIP Space between VT and ED 

number 5 
TOTAL COLUMNS Maximum print positions 12h. 
TOTAL LINES Length of page 77 
PAGE-WIDTH Actual count of print 

characters &8 
TOP Indicate right or left 

page *RITE’ 
VTI_COL Print column for VT no. o° 
FIRST_LINE First line of resume section 


print on first section page 1 


CON_1ST_LINE First line of resume sec- 

tion print on succeeding 

pages iL 
INDENT Columsn to be left for margin 8 


SPACE_LINES 


Wumber of lines to be skipped 


between title and corporate 
author, between the descr. 
note and descriptors, and be- 
tween the identifiers and 


avstract. L 
HEADING Publication "ARN /FALL 70! 
INDEX_PAGE First page of resume 

section 2 


Part 3: documents to be deleted. 

This data is in free format. The first value is number of 
documents to be deleted. The maximum number is 20. The remainder 
of this data consist of the clearinghouse accession numbers contained 

in quotes. 
Q 
ENC . 
Pree ronandv ene iu 


yn. 


MASTER EDIT 


A. Card 1: number of documents (N) to be edited, right justified 
in columns 1-4. | 
B. Cards 2-N+1: the clearinghouse accession numbers of documents 
to be edited in columns 1-10. 
C. Card N+2; all fields are F(3,0). 
These ere the highest line values for the various sections or 


maxinum number of names: 


Variable Section Current Value 
NA Personal author 2 
N1O " 10 
NT - Title 22 
Nc Corporate autho’ 3h 
NS Sponsoring ageucy he 
N50 Price section 50 
NGO Report and Bureau 60 
N7O Availability 71 
w80 Journal citation 80 
N90 . Date, pase, Gesc note 91 
NLOO Deseriptors 104. 
Neoo Identifiers 2ce 


D. Card N+3: Total number of documents expected to be processed. 
This number is an upper limit and the current value is 600. 
E. Card N++: Card to indicate the issue: 

1. Column 1 contains an A if AIM wu. a biank if B 


2. Columns 2-3 -- F for FALL, W for WINTER, SP for SPRING, 
or SU for SUMMER. 


3. Columns 4-7 -- the current year 197? 
F. Cards N+5 to end of deck: clearinghouse accession number, ED number, 


and page number of the resume. 


Oo _ : 
ERIC 47 ie 


ho, 
SUBJECT QUARTERLY 


Date is one continuous stream and varies in length. 


Current 
Field Format Contents Value 
1 F(4,0) First page of index 552 
2 F(4,0) Size of page (total lines) . 77 
3 F(%,0) Column width 37 
h F(4,0) left hand page margin 9 
5 F(4,0) _ Right hand page margin 99 
6 F(4,0) Title nage line for page 
number and heading 
F(4,0) Title page line for word “page” 9 
F4,O) Line of succeeding pages for page 
number and heading 2 
9 F(4,0) Line of succeeding pages for 
title os h 
10 ¥F(4,0) Line of succeeding pages for 
word "page" 7 
a F(4,0) , Spaces between VT and ED numbers 5 
12 F(4,0) Nomberof columsn in index printout 2 
13 F(4,0) re- Margin for each column measured 9,54 
peated no. from colvmn one 
of cols. 
times 
14 —-F(4,0) ‘Length of title — 88 
15 A( field Infex title ' SUBJECT AND 
14's value) IDENTIFIER INDEX 
16 ~  -#(4,0) Length of heading 13 
172. A( field Heading (e.g. Fall/ARM 70) WINTER/ARM 69 
16's value) 


18 A(1) Which side is first page on L 
(L for left, R for right) 


—_ 
ENC 
; 1A Txt Provided by ENC | 


[ ; 43. 
AUTHOR QUARTERLY 


Data is in format: variable name = value. 


Variable Name Variable Usage Current Values 
ZL. #_COLS Number of columns 2 
) ' 2, MARGIN Total print space for 37 
. authors’ name 
: 3. LEN _PAGE Number of print lines 77 
4%, HEADING (e.g. AIM/FALL 69) AIM/WINTER 69 
5. TOP ich side is the page LEFT 


i (e.g. TOP="LEFT' the 
| inaex page number is 


on left) 

| 6. COL SPACE Character string on blanks  '7”/56pp" 
to be paced between 
columns 

| 7. VI_ED SKIP Number of spaces to 5 
be skipped between VT , 

| and ED numbers 

8. INDEX PAGE TInitial-page number 892 

| 9. INITIAL LINE Line for 'PAGE' on 12 

- title page 

| 10. NEXT INITIAL Line for 'PAGE' on ' 9 


succeeding pages 


kh, 
_ SUPPORTING SERVICES QUARTERLY 


Data is one continuous stream and varies in Length. 


Field Format Contents — Current Values 
mS F(4,0) Initial page 917 
2 F(4L,0) Length of. pages "ae 
3 F(4,0)  Golumn width index printout 37 
4 F(4,0) left > 1 margin 9 
5 F(4,0) Right uand margin 93 
6 F(4,0) Title page line number for 2 
page number and heading ; 
7 F(4,0) , 
Title page line mumber for g 
* PAGES 
8 F(4,0) Succeeding pages line mumber 2 
for page number and heading 
9 | F(4,0) - Succeeding pages line number h 
for title 
10 F(4,0) Succeeding pages line number ‘4 
for ‘'PAGE* 
i F(4,0) Number of spaces between 5 
VI and ED mumbers 
12 F(4,0) Number of columna per page 2 
213 F(4,0) re- Column margin from . 9,54 
peated no. column cone : 
of cols. 
times : 
Vy F(%,0) Iength of title ho 
15 A(valve of Index title VOCATIONAL AND SUPPORTING 
field 1) SERVICES INDEX 
16 F(4,0) Length of heading’ 13 
17 A(value of | ; 
field 16) - Heading ' AQM/WINTER 69 


18 A(1) Indicates whether page = — R 
number is in left (I) . 
or right (R) margin 


G4 


45. 


DOCUMENT NUMBER QUARTERLY 


There are two print control cards necessary. 


A. 


CARD 1 


Columns 


1-3 
4-6 


7-10 
121-13 
14-16 


17-159 
20-22 
23-25 
26-28 


Contents 
AIM or ARM 


line number of first line INDX, 
SEASON, Year, PAGE 


first page number 
length or page (l.e. print lines) 


first page left or right (l=left, 


_ Peright) 


width of margin 1 


width of margin 2 (0 if no margin) 


width of margin 3 (O if no margin) 


width of column (from VT in VT 
to B in PAGE) 


number of columns 


mumber oOo. spaces between 
VI number and ED number 


line number of line con-=ining 
"PAGE" 


line number of first VI EL line 


line number of title page :for "PAGE" 


line number of title pace ‘for VT ED 


Content:s 


length =< title 


‘oO 


mak 


line nuwber for titie 


title 


3 
‘ 
i 


We. 
CONVERSION OF DOCUMENT NUMBER 


Data is one contiivous stream amd varies in leneth, This program 
is used for both annual and quarterly index. 


Field Format Contenss Current Values 
a F(4,0) initial page . 600 
2 F(4,0) mmber of print lines 983 
3 F(4,0) column widtia 25 
h F(4,0) left hand margin 9 
5 F(4,0) right hand margin 102 
6 F(4,0) live for page number on title page 2 
7 F(4,0) line for subtitle on title page 
8 F(4,0) line on succeeding pages for page 

mumber 
9 F(4,0) | line on succeeding pages for title y 
10 F(4,0) line on succeeding pages for subtit7™~> 
11 F(4,0) lines skipped at botton of page 3 
before footnote 
12 F(4,0) munber of columns 3 
13 F(4,0) re- coluun margins measured from 3,9 
peated no. cclumn one 
of cols. 
times 
1 F(4,0) sumber of lines of print per block he 
1S F(4,0) ' m~umber of blocks of print per 75 
columns on title page ‘ 
16 F(4,0) number of blocks of print per 
' golumn on succeeding pages 5 
17 F(4,0) length of title 35 
18 A(value of index title CONVERSION OF DOCUMENT 
field 17) NUMBER INDEX 
19 F(4,0) length of heading 13 
20 A(value of heading stating issue, reason, AIM/ARM 69-70 
field 19) and year 
21 A(1) Q@ for quarterly index, A 


A for annual index 


22 AC1) L if title page is on left, L 
R if title page is on right 


47. 


. SUBJECT ANNUAL 


Data is one continnous stream and varies in length. 


Field Format 
1 F(4,0) 
2 F(4,0) 
3 F(4,0) 
5 F(4,0) 
6 F(4,0) 
T F(4,0) 
8 F(4,0) 
9 F(4,0) 

10 F(4¥,0) 

aa F(450) 

12 #(4,0) 

13 F(4,0) re- 
peated. no. 
of culs. 
tines 

1 F(4,0) 

15 A( field 
14's value) 

16 A(13) 

17 A(1) 


re) 
ERIC 


Contents Current Value 
First page of index 1 
Size of page (total lines) © 95 
Column width 34 
Homber significant Cigits 5 
for VI muuber 
left hand page margin 9 
Right hand page margin 125 
Title page line for page 2 
mumber and heading 
Tine on title page directly 16 
above first line of index data 
Tine of succeeding pages for 2 
page momber ar) heading 
Tane of succeeding pages - & 
for title 


Taine om succeeding pages directly 7 
above first line of index. 


Number of columns in iniex printout 3 


Margin Yor each column measured from 9 
column one 


Length of titie 4g 
Index title SUBJECT AND IDENTIFIER 
INDEX 


Heading "AIM/ARM 69-70" 


L if title page is on left, R 
R if title page is on right 


ra 


48. 
| - AUTHOR ANNUAL 


Data is in format: variable name=velue. 


Variable Name Variable Usage Current Value 
MARGIN Width of print 37 
: “WE_WIDTH Columns allccated to VI no. 5 
: DATE Last 2 digits of present year 70 
INDEX PAGE Initial page munber 280 
- #_COIS Kumber of columns 2 
i 
PRIVE LINE Wumber of print positions across 
page 95 
! 
| PAGE LINES Tength of page 77 
| HEADING E.g-, "AIM/ARM 69-70" "ATM/ARM 69-70" 
{ 
TOP LEFT if initial page is on left "RITTER" 
| : RITE if initial page is on right 
FIRST INITIAL First line of index on title page 9 
NEXT_INITIAL First line of index on succeeding 
pages 7 
COL_SPACE String of bianks to be places 


| between columns a) 333) 


e.. , 
pes ee 78 


49, 
SUPPORTING SERVICES ANNUAL 


Data is one continuous stream and veries in length. 


Field . Format Contents Current Value 
1. F(4,0) First pege of incex 93 
2 F(4,0) Size of page (totel lines) O7 
3 F(4,0) Column width oh 
h F(4,0) Number significant digits 5 
for VY mumber 
5 F(4,0) Teft hand page margin 9 
F(4,0) Right hemi page margin 125 
7 F(4,0) Title page line for page 2 
mmber and heading 
8 F(4,0) Tine on title page directly 10 
atove first line of imiex data 
9 F(4,0) Line of succeeding pages fcr 2 
page number and heading 
10 F(4,0) Line of succeeding pages for h 
title 
11 F(4,0) Line on succeeding pages directly 7 
above first iine of index 
12 F(4,C) Number of columsn in index printout 3 
13 F(4,0) re- Margin for each column measured from 9 
peated no. column one 
of cols. 
times 
14 F(4.0) Tenth of title hg 
15 A( field Index title VOCATIONAL AND SUPPORTING 
14's value) SERVICES INDEX 
16. A(13) Heading "AIM/ARM 69-70" 
17 ACL) L if title page is on left, R 


R if’ title page is one right 


ERIC 
PA ion Provided by ER 19 


50. . 
DOCUMENT NUMBER ANNUAL 


Fiela Format Contents _ Current Value 
L F(4) Number of ates page | 97 
2 F(4) Maximum length of page . O7 
3 F(4) | No. of significant digits in ve no. ° 5 
4 P(4) Left hand margin : ; 10 
5 F(4) Right hand margin — 12h 
6 F(4) Line for heading and page number 2 
7 F(4) : Line for subtitle re . af 11 
8 F(4) ‘Line for heading and page number 
on succeeding pages — 2 
9 F(4) Line for index title on all but 
: title page 
10 RP(4) . Line for subtitle on succeeding pages _ 8 
121 F(4) Number of columns between VT eames _ 
; and issue in printout 5 
12 Fil) Number of columns between issue and 
page number in printout 5 
13 - F(4) Number of columns in index printout | 3 
14 Field 13's’ . Array of column margins measured from 
Value*F(4) column one. © 155 55> 95 
15 F(4) Number of lines of output in one block 5 
16 F(4) | Number of blocks of output on title page 14 
i7 F(4) Number of blocks of output on other pages - ib 
18 F(L) Length of index title a 39 
19 +A (Field Title of index “ * 
18's value) 
20 ~ a(3) Heading ~ | AIM/ARM 67-70 
21 A(1) Whether title page shall be on left . R 
or right 


* VT number, issue, and page number index. 
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51. 


EDIT OF SUBJECT, AUTHOR, AND SUPPORTING SERVICES 


Card 1: free format first field a numeric indicating the length 
of the keyword. (e.g. Author edit the =— is 132). This field is 
followed by a blank and then lh. characters in quotes to indicate the 
index to be edited. If the index is Subject, use "SUBJ." | 

Card 2: number of records to be replaced followed by the number 
of records. to be deleted. 

Card 3:to end of replacements: keyword, date and VT number of 
error followed by keyword, date, and VI number of correct record. One 
set for each document. 

Cards following replacement decks deletion deck containing 
keyword, date, and VI number for documents to be deleted. 

Cards following deletion... deck: first a card containing 
number of documents to be added. This card is followed by a deck 
of cards containing keyword, date, and VI number for each document 


to be addded. 


B81 


5e. 


DOCUMENT NUMBER EDIT 


Format of input to edtindex 


VI number Columns 1-6 

Page No. (right justified) , Columns 7-10 

Issue Columns i11-15 

Cayd Code Column 80 

If card code is a blank, all correspending entries on the input data set 


will be deleted when written to output data set. 


If card code is an A, columns 1-18 of that input card will be used as ph 


“” 
3 
Bi 
& 


to be written te the output data set. 
Sert Input Cards 


Numeric Sort Columns 1-6 


ERIC 
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APPENDIX D 


ERROR MESSAGES FROM PROGRAMS 


MASTER 

ABST 2ACT 

RESUME PRINT 

“MASTER EDIT 

SUBSETT QUARTERLY 

AUTHOR QUARTERLY 

SUPPORTING SERVICES QUARTERLY 
SUBJECT ANNUAL . 
AUTHOR ANNUAL 


SUPPORTING SERVICES ANNUAL 


als 83 


a7 
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54. 
MASTER PROGRAM MESSAGES 


CODE NO, Is QuT OF BOUNDS VT __« Colums 6 and 7 of code 
are not between 40 and 52. ‘The lirits are set in card 3440 of 
the program. 


SHORT TITLE MARKS ARE NOT CORRECT IN DOCUMENT VT ____- 
MISMATCHED CARD NUMBER IN DCUUMENT VT. 

MISSING END OF LINE OR TAB THARKCTER “N VT. 

LENGTH OF VARIABLE OR DIMENS:“0% =S Off IN VT a . es 


message is used for characte: strings which are too © Long for 
present sizes or there are too :mzny ercstries, e.g. more than 5 
corporate authors would cause: ti is urcer current limits. 


DOCUMENT NO. DOES NOT MATCH ON OFE CéAxD IN VT . 


EXPECTED INFORMATION MISSING Foti! DOCUMENT VT - This 
may be caused by some cards me=ng out of order. 


NO MATCH MADE ON ED NUMBER FOR VT __.- The clearinghouse 
eecession number card for this document is missing. 


ABSTRACT 


Cards from abstract record indicate there was @ mistake in the 
abstract card deck. 


RESUME PRINT 
ERROR ON MATCH VT vt ~ Trouble in matching 
bibliographic record with abstract neeord. 


ERRORS IN VIS RESUME BIB VT. vr - Trouble in 
matching abstract record with “bibliographsc record. 


TITLE ERROR bibliographic record. Title marks are not correct. 


in the bibliographic record printed. 
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55. 
- MASTER EDIT 


CODE NO. IS OUT OF BOUNDS vt - Columns 6 and 7 of code 
are not between 4O and 52. ‘The limits are set in card 3440 of 
the progran. - : 


SHORT TITLE MARKS ARE NOV CORRECT IN DOCUMENT VT : 


MISMATCHED CARD NUMBER IN DOCUMENT 1? = 


MISSING END OF LINE OR TAB CHARACTER -N VT . 


LENGTH OF VARIABLE OR DIMENSION IS OFS IN VI_ =‘ This 
message is used for character strirgs which are too long for 
present sizes or there are too many entries, e.g. more than 5 
corporate authors would cause this under current limits. 


DOCUMENT NO. DOES NOT MATCH ON ONE CARD IN VT . 


EXPECTED INFORMATION MISSING FROM DOCUMENT vr - This 
may be caused by some cards being out of order. 


NO MATCH MADE ON ED NUMBER FOR VT __.- The clearinghouse 
accession number card fos this document is missing. 


SUBJECT QUARTERLY 


MISSING DIVIDER IN DOCUMENT VT __- ‘The divider separating 
the numeric length fields from the he character string is missing 
in the bibliographic record. 


KEYWORD TOO LARGE IN VT - The present limit on the 
descriptor and identifier length is set at 200 characters and 
a keyword in the designated document is too long. 


TROUBLE IN BREAK WITH VI __.- This error message indicates 


that there is no blank or - to break up the descriptor. or 
identifier for this document. 
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56. 


AUTHOR QUARTERLY 
INDEX IS WRONG index number. Separator in bibliographic record 
is missing. 


PENSONAL AUTHOR WRONG numeric. Number of personal authors 
2xceeds two. 


CORPORATE AUTHOR WRONG numeric. Number of corporate author= 
exceeds Pive. 


SPONSORING WRONG numeric. Number of sponsoring agencies exceeds 
three. 


TITLE ERROR title VT . Error in the title marks. 


SUPPORTING SERVICES QUARTERLY 


MISSING DIVIDER IN DOCUMENT VT ___- ‘The divider seperating 
the numeric length fields from the character string is mere. 
in the bibliographic record. 


SUBJECT ANNUAL 


NO END OF SUBJECT NAME IN subject VT - Special character 
used for end of subject name is missing from the record.» 


MORE THAN 15 DATES UNDER service field. Present limit on number | 
of dates for a service field is 15 dates. 
MORE THAN. 75 DOCUMENTS UNDER publication date FOR KEYWORD . a 


AUTHOR ANNUAL 


Bibliographic record printed out indicates error in record. 


S7. 
SUPPORTING SERVICES ANNUAL 


L. MORE THAN 15 DATES UNDER service field. Fresent limit .. i number 
of dates for a service field is 15 dates. 


2. MORE THAN 2CO DOCUMENTS UNDER publication date FOR *XEYW OED 


@ 
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APPENDIX E 
PROGRAM LISTINGS 


RIE TO AIM/ARM 
MASTER 
ABSTRACT 


RESUME PRINT 


' MASTER EDIT 


SUBJECT QUARTERLY 

AUTHOR QUARTERLY 

SUPPORTING SERVICES QUARTERLY 
DOCUMENT NUMBER QUARTERLY 
CONVERSION OF DOCUMENT NUMBER 
SUBJECT ANNUAL 

AUTHOR ANNUAL 

SUPPORTING SERVICES ANNUAL 
DOCUMENT NUMBER ANNUAL 


EDIT OF SUBJECT, AUTHOR, AND 
SUPPORTING SERVICES 


DOCUMENT NUMBER EDIT 


RIE FORMAT 


88 


page 
a2 


69 
8h 
87 
95 
106 
120 
128 
L141 
150 
159 
L71 
178 


190 
197 
200 


202 


D96 


RIE TO AIM/ARM 


SEs) 


I 60. 
GENER PROGRAM 


PURPOSE: 
an AND ABSTRACT TAPES ~~ 


MAS TFR RECORD 


ge : . 
ee eT MUMAER “10 BYTES 
2e CODE NUNRER 17 BYTES 
3. EN NUMBER 20 RYTES 
4. PUB. ISSUE 3 BYTES 
5. CURRENT YEAR 4 BYTES 
6. RESUME PAGE 4 BYTES 
PERSONAL AUTHOR 132 BYTHES MAXIMUM 
8. TITLE 396 BYTES MAXIMUM 


9. CORP. AUTHORS 660 BYTES MAXIMUM 
10. SPONSOR. AGENCY 396 BYTES MAXIMUM 


REFORMAT R I E TAPES INTO” PORTA TS: FORD BIS INGR AE TG. 


F O RMA TT 


A OR BLANK AND 2 BYTH QUARTER 


~ {MAYBE 2° AUTHORS) 


{MAY BE 5 AUTHORS) 
(MAY BE 3 AGENCIES) 


-~ 11. PRICE 66 BYTES MAXIMUM 

. 12. CANTRACT NO. 44 BYTES MAXIMUM 

cote Lae GRANT NO} sont 4& BYTES MAXIMUM 
14. PA NO. 2 BYTES IF IT EXISTS 

15. REPORT NO. 66 BYTES MAXIMUM 

16. BUREAU NO. 66 RYTES MAXIMUM 

“17. AVAILABILITY 264 BYTES MAXIMUM 


18. JOURNAL CITAT. 132 BYTES MAXIMUM 
mem 19 > PUBLICATION DATE 7 BYTES 
20, NO. OF DOC. PP. 16 RYTES MAXIMUM 

“21. DESCRIPTOR NOTE 247 BYTES MAXIMUM 

22. DESCRIPTORS 660 BYTES MAXIMUM 

“23. INENTIFIERS 396 BYTES MAXIMUM 


24. SEPARATOR RETHWEEN CHARACTER FIELDS AND LENGTH INDICATORS 
an ACH VALUE OCCUPIES 4 BYTES UNLESS NOTED THE FIELD CONTAINS 


THE INDICATED FIELD 
-~ 25, NUMBER OF PERSMNAL AUTHORS 
27. TITLE 
-~- 28. CORPORATE AUTHOR (NUMRER OF) 
29. CORPORATE AUTHORS O TO 5 FIELDS 
= 30; SPANSORING AGENCIES (NUMBER OF) 
31. SPONSORING AGENCIES 0 TO 3 FIELDS 
“324 PRICE 
33. CONTRACT 
“34. GRANT NO. 
35. PA NO. 


a <) e 


37. BUREAU NO. 

~- BB. AVAILABILITY 
266 FACA Pe AUTHOR O TO 2 FIELDS 
-39, JOURNAL C:TATION . cae 
40. PUBLICATTON DATE 


ee a PAGE COUNT tutto ett ee 


42. DcSCRIPTIVE NOTE 


“777-43. ~ DESCRIPTORS = = a 
. 44. IDENTIFIERS 
, */ 
CODE TABLE 
> SECTION HEX. CODE 


ACCESSION NUMBER 0010 


o_ 
ERIC 


-PUBLICATION OF” THE DOCUMENT 


‘DECIMAL CODE © 
16 1 


Ne 
us 


00000010 
onnn0o27n0 
00005030 
00000N40 
oo00gnes 
oo00n00n0EN 
no00000TN 
OO000CRO 


-o0000009N 


ooo0001ra 
a0n00110 
00000120 
00000130 
00000140 
00000150 
00000160 
00000170 
00000180 
00000199 
00000200 
00000210 
00000220 


- 00000?30 


00090240 
00000250 
00000260 
00000270 
00000280 
00000290 
900000300 
00000310 
00000320 
00000330 


2 VERTIONNNN0340 
THE t&00000350 


00000360 
00000370 
00000380 
00000390 
00000400 


- 90000410 


09000420 
00009430 
00000440 
00000450 
00000460 


-- 00000470 


00000480 
00000490 
60000590 
00000510 
00000520 
00000530 
00000540 


~~~ 900000550 


00000560 


--00090570 © 


Oo000058&0 


ot ae - 5 excadech aves teeta esas ees eee re eo eee et me ne ene me mea eomee ou aman ann moma crane ew ete = mmmarmemre ere 00000590° 


00000600 


ORDER 00000610 
00000626 


él. 


CLEARINGHOUSE NUM. 0011 17 2 00000630 
PROGRAM AREA 0014 20 3 00000640 
PUBLICATION DATE 0017 22 4 09000650 
TITLE OO1LA 26 5 00000640 

——— PERS ONALTAUTHOR on OOLB eT te ----—& ~~ 00000670 
DESCRIPTOR 0023 35 7 00000620 

- IDENTIFIER 0024 36 8 00000690 

EDR SS PRICE 0025 37 9 00000700 
—---—- DESCRIPTIVE NOTE 0026 “+ +38 --10°° -00900710 
ISSUE 0028 . 43 11 00000720 
AESTRACT oe eee n02t ~ eee ee Ab re mo |Z" 0000073N 
REPORT 0020 45 13. 00000740 
CONTRACT OO2E 46 14 00000750 
GRANT NUMBER 002F 47 15 00000760 
‘BUREAU NUMBER 0030 48 16 00000770 
AVAILABILITY 0031 49 17 00000780 
AQURNAL “CITATION ~~ 0082 te een 1B 700000790 © 
FNSTITUTION NAME 0080 128 19  o0000R00 
-- SPONSORING AGENCY 0084 132 20 oo00cR10 
*/ 00000820 
“== GENER: PROCEDURE OPTIONS (MOIN)§ 00000830 
DCL ALOR_BLNK CHAR(1), 00000240 
= 2 POG FIXEN-BINARY (1590), ee a ee te ee mee QOONOKSO - 
(ICQDE, JCODF,KCONE) FIXED BINARY (1540) 00000 R6e 
soe ee TSSUE CHAR(7) 3 00000870 
coono0rkO 
a 6. 0n000€90 
INPUT CONTROL CARD FOR AIM OR ARM RECOGNITION, 00000900 
ee a NUMBER OF DOCUMENTS» AND ISSUE 7" Sands aes ~ QOGGOSLO 
*/ 00000920 
eee 000009e3Nn 
GET FILE(SYSIN) LIST(A_NR_BLNK »#_ONCy,I SSUE) 3 00000940 
--=. > TE ALOR_BLNK="At THEN JCODF=63 ELSE JCOQNE=93 00000950 
BEGINS 00000960 
CEOS EWFILE (SYS IND $ Tro ct ott trict ce ttre rete ome tere ren rome nnn  G 0000970 
DCL VTS(#_DNC) CHAR(10)3 onon0esa 
ACL CODE(#_NNC) CHAR(17)> = > = 00000°90 
BUF2 CHAR(2000) VARy 00001000 
“ss = CARD CHAR (8003 00001910 
DCL 00001020 
i “CODE TABLE(20) FIXED BINARY(1510),° /* WILL CONTAIN BIT CODES ~~ */ 00001030 
(I,CODES) FIXED RINARY (3190), 00001040 
LENGTHS FIXED BINARY (15470), 00001050 
TITLE CHAR{(400) VAR, 00001060 
BUFFER CHAR(6996) VARy /¥ TO HOLD INPUT STRING */ - 00001070 
OUT_STRING CHAR(2000) VAR3 00001080 
SaaS HCL ACO CODE CHARC2) PRITTRUAT Bie}gs 5 ere eee ee met ce te eer 061098” 
BUFFER_LENGTH FIXED BINARY(31,0), 00001100 
“4d S29 Ky LEN_C_AUTHOR(5)5 LEN_P_LAUTHOR{2), LEN_SA(2)) -~060001110 
FIXED RBINARY(15,0)¢ 00001120 
CHAR_LENGTH(17) FIXED BINARY(1540), 00001130 
; #_P_AUTHORS FIXED BINARY(1590), 00001140 
Leone | EES LEN =F TED “BINARY Ul 1590} ye te ete tree er ONO L TAO ~ 
#_C_AUTHORS 00001160 
Fee -  - + BYXED BINARY(15,0)% © >> ce a -00001170 
HSA 00001180 
fg FIXED BINARY(1510), pies ae - 90001190 
LEN_PRICE 00001200 
Be EX ED BINARY (15 9 0) gre rt er mmm 0000 121.0° 
LEN_CONTRACT 00001220 
Fen eS FIXFD BINARY(1550)9 00001230 
LEN_GRANT 


ERIC | «gi 


00001240 


oe pee FIXED BINARY(15,0), 00001250 
LEN_PA 00001260 
FIXFN BINARY( 15,0), 000012790 
EN REPORT 00001280 
ar aaa votes m= - EEXED SINARY(15,0)¢ = 7 — arm woman OOONLZ90- 
LEN. BUREAU 00001300 
; FIXFN BINARY( 15,0), 00001310 
LEN_AVAIL 00001320 
Sees vemise ee ee UEDA WARY 259 0)5 Bh Senha Be oe POOOOI aay 
LEN_ Jc 00001340 
Sere ee PEE BINARY (15 9 O19 hoe ten creme ee QO0G 1350 ° 
LEN_DATE 00001360 
FIXFD BINARY( 15,0), 00001370 
LEN_ PAGES 00001380 
FIXED BINARY(1530), 0006 1290 
LEN_DESC_NOTE 00001400 
mr rn errr eens aE TX EA BINARY (1550) 4 Bet pa par ae eee ee mr rwemrnmrs mere OOOOL4E1O - 
LEN_NDESC 90601420 
FIXFD BINARY(15,0), 86001430 
LEN_IDENT 00001440 
FIXFN BINARY{( 15,0), ici ES; 00001450 
(BUREAU, PRICE, RFPORT) CHAR(66) VAR, a 00001460 
stem (AVATIL DESC_MQTF, JOURNAL» PERSONAL_AUTHOR) CHAR(132)> VARs -~--— > 000012470 
(TORPORATE_AUTHOR, NFESCRIPTAR) CHAR(660) VARy 00001480 
“(CONTRACT, GRANT) CHAR(44) VARs 00001490 
CINENTIFIER, SPONSOR_AGENCY) CHAR(396) VARs 00001500 
DATE CHAR(7), ; ; 00001510 
(VT, ED) CHAR(10), 00001520 
aa PA CHAR(2) VAR, aie ia os So, eet oe ~ 00001530 
“PAGES CHAR(16) VARy 00001540 
NEW_CONE FIXED BINARY(1520)3 00001550 
00001560 
INITIALIZE cnn TABLE 00001580 
= %/ paola dS adres eens mentee Bie Se see aes ae Beet cee = YN001590 
00001600 
series — -CODE_TABLE(1)=1635 ca mace ER 2 00001619 
CNDE_ TABLE (2)=173 00001620 
CONE_ TABLE (3 ) =203 00001630 
CUDE,, TABLE (4)=233 00001640 
mrooeemnenn nme CONE TABLE (5 ) =263 > cc a aia cee ee 00001650 
CODE_ TABLE (6)=2735 00001660 
~po T=7 TO 103 - 00001670 
CODE. TABLE Natta es 00001680 
- END; © 00001690 
DO I=11 TO 185 00001700 
mae CODER TABLE (EY) 324190 ~ > mm aed aaa eerste dearer OOO LY LO 
END$ . 00001720 
swoon or CODE TABLE(19)=1283 sauesaaiai ~ 00001730 
‘ CODE_ TABLE (20)=1323 00001740 
= e witse cS Mided HS baka Aw ee -. o an: Os a ee ee eee “ 0000 1750 
; /% 00001760 
theater BAB IEY CENT ROILG tte nt Hee OOO 1 ITO * 
: x/ 00001780 
- so Satara arse pea dpm Sea ag aeiee de hatte 7 Bic ia ie sie es ~ i“ - = 00N01790 
. ON ENDFILE(RIE) GO TO STOP$ 0000180n 
“ON ENDFILE(VTSIN) GO TN INPUT;- cater ee sm = 9001810 
ON TRANSMIT(RIE) GO TO INPUTS 00001820 
EDD EO Ee re tert eee OOO. TR SOe 
; 00001840 
READ FILE VTSIN INTO FILE CARD AND GENERATE AN ORDERED 


Qo .. 
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62. 


00001860 


92 | 


(andes 
‘ a 


haiasseuarettde 
5 t 


63. 
oe eer SET OF VT NUMRERS WITH A CORRESPONDING SET OF ORDERED 00001870 
CONES 00001880 
cca) Ae 00001890 
00001960 
———-ONP=-REAM FILECVTSIN) INTG@(C ARDS $00> cc rr mm 0001910 
KCADE=KCONE41 $ 00001920 
sss > MTSCKCONE)=SUBSTRICARD 91410) 3 . 00001930 
CONE(KCNDE =SURSTR(CARD 91591773 00001940 
PUT FILE ISYSPRINT) FN IT(KCODE sVTS(KCODE) »CODE (KCODE)) (X (5) 9F (4) 4X (200001950 
Y gA(10) 9X2) 9A C1795 00001960 
—"GO Ty Enns sae ceca eae te lace im ean cred eicaummaiecdes |!) 00 8 Fo 24 
00001980 
Stee ae es : 4 00001999 
| READ FILE RIE INTO BUFFER 00002000 
oS re 00002010 
00002020 
" ———ANPUT?-READ FILE (RIE) INTO (BUFFER) 3 00 mmr = 0002030 © 
00002040 
ga 4 00002050 
INITIALIZE VARIABLES 00002060 
Leeye ens So w Pes 00002070 
00002080 
CHARI LENGTHE 08° ro Eey eae te Sein ee Pa Ban ene ke Seen NO 280) 
PERSONAL_ AUTHOR y TITLF sCORPORATE_ AUTHOR, SPOMSOR_AGENCY,PRICE=""3 00002100 
~ CONTRACT, GRANT » REPORT pRUREAU, AVAIL y JOURNAL » DESC_NOTE yDESCRIPTOR=''5 00002110 
IDENTIFIER=*'$ 00002120 
DATE=" "3 00002130 
PAyPAGES=!"'"3 00002140 
#-P“ AUTHORS »TITLE_LEN, #_C_AUTHORS 9 # SA, LEN_PRICErLEN_CONTRACT=03 ~~~" ~"00002150 
LEN_AVATLyLEN_JC yLEN_PAGES sLEN_DESC_NOTE,LEN_NDESC,LEN_IDENT=03 00002160 
- LEN_DATE=73 00002170 
LEN_GRANT sLEN_PAyLEN_REPORT »LEN_BUREAU=03 000021R0 
~ LEN_P_AUTHOR= 03 LEN_C_AUTHOR=03  LEN_SA=03 7. ~ 90002190 
00002200 
nanny 2 aaa ee ee ee en ee - eae: ee rm ee me ae . et ete em -000022 1 0 
SCAN BUFFER FOR ITS LENGTH BUFFER_LENGTH—» “INITIALIZE -I-, 00002220 
Se ts, Ae eee a SCAN BUFFER FOR THE LENGTH-CONF-OF THAT PORTION OF THE 00002230 
BUFFER THAT APPEARS BEFORE THE SUBSTRING ACC_CODE 00002240 
eS eee 00002250 
00002260 
eerie BUFFER _LENGTHE=LENGTH( BUFFER?) $n mr mmr 9002270 
1= 13 00002280 
sro eeteeterne te COMESS INDEX (BUFFER sACC_CODE)$ a an “= = 90002290 
00002300 
wt PR er . t- - ae . --00002310 
; DUMP INTO NEW_CODE THE FIELD CODE BIT STRING OF THE 00002320 
ee FIELD FROM THE RIE FILE BEING PROCESSED 00 ort trem = 00002330 © 
x/ 00002340 
rere eee ee oe - a ea gsr of ed — eae * 00002350 
UNS PEC (NEW _CODE) =UNSPEC( SUBSTR( BUFFER sCODES 2) 00002360 
eer eee re + ae - vee . . 00002370 
, sx 00002380 
—p— TF THE FIELD “CODE 1S QUT-OF“-POSTTION,- GO-T0-THE“INPUT-——- 00002390 - 
. OF THE RIE FILE 00002400 
rencepencs katie ps aesmom se ee - tes - - . . as, te -- es a ee ee eae meee ame 2° « 00002410 
; 00002420 
cote eteteee te ' JF CODFS<3 THEN GO TO: INPUTS - aap cea setae Ame et OOD 2430 
00002440 
ae —- Jeeewnn oe oN mee ae nem mt ee 8 en ne ee a ee 8 ao ae mee ee ee SO ee meee eee meme ie Se ROAR nt «gute ow At Ry ait ~---900027450°- 
: DUMP INTO LENGTHS THE BIT STRING GIVING THE TOTAL LENGTH 00002460 
Sercraen cee: - OF THE FIELD BEING PROCESSED YS cet Ge ar ha ae HOO OAT GO 


ef 00002480 


a ; 6h. ov 00002490 

NEXT: UNSPEC (LENGTHS ) =UNSPEC (SUBS TR ( BUFFER »CODFES—2452))3 00002500 
00002510 

1% 00002520 

To mmm = FTF LENGTHSSRUFFER_LENGTH AR THE FIELD HAS NO DATA,-WRITE ~~ 00002530 
LENGTHS» BUFFER_LENGTH, THEN RETURN TO THE INPUT OF THE 00002540 

pe ; RIE FILE 00002550 
xf 00002560 

A. ay Ghee : Ss : : Str nt sae nae ne See cere em cau ~  * 00002570 

IF LENGTHS>BUFFER_LENGTHILENGTHS<5 THEN DO; 0000258Nn 
Toren coom ns" PUT FILE(SYSPRINT) EDIT (LENGTHS,BUFFER_LENGTH} (SKIP, - - 00002590 
2 F(4))3 00002400 

GO TQ INPUT; ; 00002610 

END; 00002620 

an . nes 00002630 

/% , 00002640 
Tor mem" COPY DATA STRING FROM THE FIELD BEING PROCESSED AND STORE “00002650 - 
IT IN THE PROCESSING LOCATION DENOTED AS OUT_STRING 00002660 

xf oe : ; 00092670 
00002680 

OUT_ STRING=SURSTR (BUFFER ,CONFS+2,LENGTHS—4) $3 — = 00002690 

; 00002700 
af Ber oreeeres Be Sb hte me _ ean Veet y shush 5 ~~ Ee -—- -=-—-- 10002710 
IF NEWL_CODF=CONE_TABLE(I}¢ THEN. ENTER THE PROCESS ING BLOCK 00002720 

~ AND STORE CHARACTER LENGTH AND LENGTH INDICATOR - 00002730 

xf 00002740 

cae ; 00002750 

IF NEW_CONDE=CODE_TABLE(I) THEN 00002769 

rpc: DG; wee ee pee bees. a6 Ue or eee Z : ee ee mw es Se ee meneame cee eee ae ee “= QO00027TO 
00002780 

a 1 00002790 
PROCESSING BLOCK: PURPOSE: GIVEN A CODE VALUE(I.E. ~I-) THE00002R800 

ee BLOCK WILL CONSTRUCT THE APPROPRIATE STRING OF DATA FROM THE 00002810 
FIELD BEING PROCESSED. ALONG WITH THE CONSTRUCTION OF NEW 00002820 

oom cman DATA STRINGS IM THEIR DFSIRED NEW FORM, APPROPRIATE LENGTH-~-:-00002830 


PARAMETERS ARE SPECIFIED FOR FACH NEW STRING CONSTRUCTED, 00002840 

NOTE: IF Y¥=12s ABSTRACTS ARE BUILT» PRINTED OUT; AND STORED 00002250 

IN THE FILE VTABS. 00002860 

*/- - 00002870 

00002880 

ee IF-J=1-THEN ED='FD-' | |SUBSTRI{OUT_STRINGs 393) E01" ©EPSURSTRE ~-------00002890 

OQUT_STRING +6 53)3 00002900 

pie ahs ELSE . " ‘ ss + 0002910 

IF I=2 THEN 003 00002920 

veven es VT=SUBSTR(OUT_STRINGs1¢2) 11" "PISURSTR{QUT_STRINGs393)19" "FTI ~ ===> 90002930 

SUBSTR(OUT_STRINGs643)3 00002940 

saan T PB -SUBSTRAVT91,2)9='VT! THEN DO: -:- ate con mete e manne ame nnn 0002950 

PUT FILE(SYSPRINT) EDIT (BUFFER )(SKIP(2) 9 4)5 00002960 

GO To INPUTS; De teers sere = = QQ002970 

ENDs 0000298n 

-DO ICODE=1 To KCANF: ; a PAS GbE ates cet te QQOOFEIO 

’ IF VT= VTS(ICODF) THEN Ga TO “UPCODES 00003000 
See ENDS eee etme Oe ee nm Ane eer oO 6 © woe ae comes © ms mem me oes een 0k He me Oy Mr emtnD 6 o ORME O46 tee ome weeeten a - vem OC) 0030 10 - 

GO TO INPUT? 0000302n 

ae semen 8 ENN; - . . ear Ce ar er z ts aes Pome a tes ae. ae ren ia ee ee? © ttm ate ome m=" 990003030 

ELSE 00003040 

PA=OUT_STRING; 000030460 
SRR mmm EN PAZL ENGT HS 94 $00 0 cet rn et ee 003070 

; END: ; 00003080 

ge ee Se aS os ORE SE == 990030280 

Te Is 4ELENGT HS>5 THEN SUBSTR(DATEs12~ LENGTHS) =QUT_ STRING 00003100 


ERIC | | 94 


cr iad ELSE i 65. 


00003110 
IF I=5 THEN nos 00003120 
TITLE_LEN= LENGTHS-13 00003130 
IF TITLE_LEN<SITITLE_LEND>409 THEN 03 . 00003140 
PUT FILE (ERROR} EDIT (BUFFER DI SKIP SA) 3 —o ot to em 90003750 
GO TO INPUTS END; 00603160 
~ TITLEE'<'}] QUT_STRING] [*>.0'5 00003170 
END $ 00002180 
SS EEL SS 6 Be Rigie <6) Ses BGs Kaya aulnw net cee gga TaD 
IF I=6 THEN 00; . 00003200 
$n J INDEX COUT STRING 9 HEED 3 CT mmr mmm === 90003210 © 
IF J-=0 THEN 003 00003220 
JETNDEX(QUT_STRING,!AND OTHERS')$ 00003230 
iF J=O THEN J=INDEX(QUT_STRING,*AND OTHERS*)3 00003240 
IF J=O THEN 003 00003250 
#_P_AUTHORS=23 00003260 
ae LED PLAUTHMR {1 )=INNEX (QUT STRING gt 8215 oo on 90003270 
LEN_P AUTHOR (2) =L ENGTHS-6-LEN_P_ AUTHOR (1) 3 00003280 
PERSONAL_ AUTHOR =SURSTR (CUT_STRINGs1sLEN_P_AUTHOR(1)))1SUBSTR¢ 00003290 
QUT_ STRING sL EN_P_AUTHOR (1) +3 sLEN_P AUTHOR (2) 13 00003300 
ses, END$ © 00003310 
ELSE NO; 00003320 
ane a JE END EX (OUT LSTRING 2 83 8) § 00 mm 00003330 
SUBSTR{OUT_STRING sJy1)= 00903340 
S aleied talc aeiall #_P_AUTHORS=13 00003350 
LEN_P_ AUTHOR (1)=LENGTHS-43 00003360 
PERSONAL_AUTHOR=OUT_STRING3 000033706 
END 00003380 
ae eee ENO a 7 . : ae Hae NODS H 
ELSE N03 000034C9 
#_P_AUTHORS=13 00903410 
LEN_P_AUTHOR (1)=LENGTHS—43 00003420 
= - - PERSONAL_AUTHOR=QUT_STRINGS 00003430 
ENDS 00003440 
ne rete caters ee 8 on cece ee ENDS me oo ee we eee nee eee wee ee ee eee ne ee et ce mm een tee Heme et eee ome meat eae 00003450 
ELSE 00003460 
"TF 127 THEN 003 00003470 
DESCRIPTOR=0UT_STRING3 00003480 
LEN_DESC=LENGTHS-43 00003490 
END 00003500 
SS BLS Brae eS ee Sa eae See ae ammereesi eS OOOOSS TO 
IF 1-8 THEN DO$ 00003520 
sina ease IDENT IFIER=OUT_STRING$ ~ 00003530 
_LEN_IDENT=LFNGTHS— 43 00003540 
pete nnaeeer 8 aoe es END; 00003550 
ELSE 00003560 
REO THEN DOS" sity sl eenate onde sete Benet ete is Some O05 70 
PRICE=QUT “STRINGS 00003580 
wes os som LEN_PRICESLENGTHS=4 3 ek Eee Aes ~ 00003590 
END $ 00003600 
ede i * HELSE Salaried 00003610 
; IF I=10 THEN 003 00003620 
fen ee ee acd INDEX COUT ES TRING 9 UR it) Sm mm err ne rn tem = 0003630 
. IF J<=0 THEN J=INNEX(OUT_STRING, 'Po')3 00003640 
tener ree eee + TB SRLENGTHS-7 THEN DO$ - 00003650 
‘ BESC_NOTE=SUBSTR (OUT_ STRING» J#4) 3 00003660 
Pome ss LEN DESC _NOTESLENGTH(DESC_NOTE) $ se 00003670 
END$ 00003680 
heen ee LEN PAGES ES EL 30 om ee mmm 0003690 ~ 
. PAGE S= SUBS TR (OUT. STRING, LyJ+h)3 "00003700 
man eee VE Sh THEN OO: So 2 00003710 
LEN_DESC_NOTE=03 00003720 


LEN_PAGES=03 66. 
END; : 
END; 
ELSE 
~——- JE. {2 1LL-THEN GO TO UPCODE$S 0 el dbs Serb at Geek See 
ELSE 
‘TF T=12 THEN 003 
BUF2= VTI 1 SUBSTR(ICONE(ICODE)» JCNNF, 2) | {OUT_STRINGS 
-PYT FILE(SYSPRINT) EDIT(BUF2Z) (SKIP (3)2A)5 Set see es 
WRITE FILE(VTASS) FROM (BUF2)3 
er “END; a= TORIES aa as cane se Sse 2 = masonite: Ese ae 
ELSE 
IF I=13 THEN DO; 
REPORT=(MlIT_STRING3 
LEN_REPORT=LENGTHS~-43 
END 3 
rn ee re er re ELSE fe, ie Bs 4 — aw owe ion Site ie ia as vate poe ie + cence anal tea ee aa sae aaa em ecm 8 ee cme ferme eee oe 
IF I1=14 THEN DO3 
CONTRACT=OUT_STRINGS$ 
LEN_CONTRACT=LENGTHS~4= 
“ENDS 
ELSE 
os o {= 5 THEN nas 5 os Sa x i gah nei Ses ies dials) Gen ae ee 
GRANT =0UT_ STRING? 
LEN_GRANT=L ENGTHS~43 
ENDS 
ELSE 
IF I= 16 THEN no; 
mane ~ BUREANSOUT_STRING3 oe ce mr see ame 
LEN_BUREAU=LENGTHS~4; 
ENDS 
ELSE 
IF I=1L7 THEN 003 
AVAIL =OUT_STRING$ 
inn me LEN LAVA TLE LENGTH( AVATL 3 ne ae 
END$ 
ELSE - 
IF I=18 THEN 093 
LEN_JC=LENGTHS—4 3 
JOURNAL =OUT_ STRINGS 


ee como ENDS sete . ee eee ee =: fe ee ee ne mee em eee 
ELSE 
IF 1=19 THEN 003 
K=15 
~ CORPORATE_AUTHOR=OUT_STRING: © came 
J2=13 


a JLOMP T JEINDEX (CORPORA TE_AUTHOR 1 158) $m o 
IF J-=0 THEN 003. 
rere ne eee rene em ee te . . LEN_C_AUTHOR (K)=J-J23 ae eee me se a er) see ae 
K=K415 
GRE Ge Rea, Ge CRG A WAR a8 — ‘$2 J+13 


be enn een § } | FSUBSTR ( CORPORATE_AUTHOR gd+2)  ——-——" OOOO 250 
GO TO JLONP: 00004260 
ap aie ea - ENDS ea 00004270 
ELSE IF J2=1 THEN LEN C_AUTHOR(1)= LENGTH(0UT_STRING) 00004280 
at -SLSE LEN_C_AUTHOR (K)=LENGTH ¢ CUT_STRING)~J23 00004290 
: #_C, _AUTHORS = Ks 00004300 
2 an ee ee END Bm oe vee ee ee ce en nee ee oo (0004310 - 
ELSE 00004320 | 
IF T=20 THEN DOs si ae Reateiee — Gaaed’ eg +2 eS 00004330 
K=13 06004340 


o_ 
ERIC 


00003730 
00003740 
00003750 
00003760 
-00003770 
00003780 
00003790 
00003800 
00003810 
00003 820 
00003830 
00003 840 
00003850 
00003860 
0n003870 
00003 880 


-- 00003890 


000n3900 
00003910 
C00C3920 
000°°3930 
00073940 


- 00003950 


000063960 
000°7970 
o00r. +380 
000° 23990 
oooci~ 000 


- 00Or +010 


000-020 
00004030 
00004040 
00004050 
000040640 


- 00004070 


00004980 
00004090 
00904100 
00004110 
00004120 
00004130 
00004140 
00004150 
09004140 
- 00004170 
00004180 


~~ 00004190 


00004200 
* 900004210 
00004220 
00004230 


CORPORATE_AUTHOR= {SUBS TR (CORPORATE. AUTHOR 9143 ~00004240 


$ 


. 6 . 
SPONSOR_AGENCY=OUT_ STRING? 
J2=13 
JSALOOP: J=INDEX(SPONSOR_AGENCY,'3")3 
IF Jo=0 THEN 903 
LEN SAUKISERI2R2 9 Se rere se 
K=K+13 
J2=J+13 
SPONSGR_AGENC Y=SURSTR{ SPONSOR, AGENCY 91 ¢J~1) 1 
- > SUBSTRISPONSOR_AGENCY »J+2)5 
GO TO JSALON9; 
~ . END3 H . -~- oe ote eet ers 
~SA(1) =LENG TH (OUT_ STRING) § 


ELSE IF J2=1 THEN 


1 


LEN 


ELSE LEN_SA( K)=LENGTH(OUT_STRING)-J23 
ESA=K3 
une : END; 
END3 
/* 
TO COMES, THE LENGTH OF THE FIELD » BEING PROCESSEC, THAT 
APPEARS BEFORE THF SUBSTRING ACC_CODE, ADD THE LENGTH OF 
Bie 4a THE ENTIRE FIELI%. THIS IS TO BE USEO AS 4 CHECK FOR TERMINAT 
ING THE PROCESSING OF A COMPLETE RECORD. 
ete ff aires ataenias vet Hsia Niewweie o 6 caine: reese anen. Se st fonache aces a aitnen eee: “HihSee ees sicise Seasin en, 
- UPCONE: COOES=COOES+LENGTHS 3 
/* 7 
IF CONES>RUFFER_LENGTH, AN ENTIR© RECO’ DP HAS REEN PROCESSED. 
a arnmmnn = DERFORM OUTPUT AND STORAGE, THEN ~:0 TO INPUT OF THE’ RIE-FILE 
at 


IF CODES>BUFFER_LENGTH|1=20 THEN 003 
PUT STRING(RUFFER) EDIT(VT sCONE(ICOOE),FN,ISSUE, 
PERSONAL_AUTHNR »TITLF »CORPORATE_AUTHOR » SPONSOR_AGENCY »PRICEyCONTRACT, 
————-GRANT » PAs REPORT »RUREAUSAVATL » JOURMAL 9DA TE y PAG ES» DESC_NOTE yDESCRIPTOR, © 
IDENTIFIER,' 11" y9#_P_AUTHORS » (LEN_P_AUTHOR(J) OO J=1 TO #_P_AUTHORS), 
- TITLE LEN, #_C_AUTHORS, (LEN_C_AUTHOR(J) O00 J=1 TO #_C_AUTHORS) y#SAy 
(LEN_SA(J) DO J=1 TO #48A),LEN_PRICE,LEN_CONTRACT,LEN_GRANT,LEN_PAy 


000043506 
00704360 
Oor04: 70 
00004320 


~ 00004290 


000044590 
00004410 
00094420 
00004430 
00004440 


-00004¢.50 


00094460 
00904470 
00004480 
00004-.90 
00094500 


“N06 04510 


00094520 
00994530 
00094540 
00204550 
00094560 
00604570 
00004580 
00004599 
N0c0..30% 
00004610 
00004620 
00004630 
00004640 
00004650 
00004660 
00004670 
00004680 
00004690 
00004700 


"00004710 


00004720 


~ LENUREPORT ,»,LEN_BUREAUU,LEN_AVATIL »LEN_JCy LEN_DATE,LEN_PAGES »LEN_DESC_NOTEO000047 30 


» LENLOFSC sLEM_ IDENT )(A(10) sA(17),A(20)9Al7), Aisa S ia ca Pls 


a acsaieia PUT FILE(SYSPRINT) EDIT(BUFFFR) (SKIP »A) 3 - se ee eee 
WRITE FILE(WORK) FROM (BUFFERS 
- - GD TO INPUTS 
ENO$ 
/* 
eg ee eae ne THE FIELD CODE -ACC_CODE- BIT ‘STRING---~~- 
* 
UNS PEC ( NEW_CNOE) =UNSPEC (SUBSTR( BUFFER y COOES, 2))3 
, 1% 
—~-—————- SCAN CADE_TABLE- «~~~ 2 = pag inane Caakcaneah 
FOR VALUES OF I FROM 2 TO 20 CHECK IF NEH=CODE. _TABLE(T) « 
soos se se TR A MATCH 1S FOUND » GO TO STATEMENT NAMED NEXT. - 
IF .FOR A VALUE OF Iy NEWLCODE<CODE_TABLF(I), SET I=I~1 
Pate are Ges os AND GO TO NEXT es : 
OTHERWISE, GO TO INPUT OF THE RIE FILE. 
are * f ee ee ee ar ee ee eee eee ne at nner Sereneene © Berets REE Fe ae ge seep termmetnnten Se ee 6 see ae ae 


00 I=I+1 TO 203 oak ee 
IF NEW_CONE=CONE_TABLE(!) THEN GO TO NEXT; 


oe 


OCG O4S 


00004740 
~ 00004750 


Q0004740 
00004770 
00004780 


- 00004790 


00004800 
00004810 
00004820 
00004830 
00064840 
00004850 
00004R40 
00004870 - 
00004880 
00004890 
00004900 


- 00004910 


00004920 
00094930 - 
alee 


68. 

“FP NEW CODE<CODE_TABLE /1) THEN DO3 00004270 
F=I-13 OC OG4S 20 

GO TO NEXT: 00004220 

END; N6° 9506 90 
woe ENDS - AR a ee aie ee vee 900050 1N 
GN TO INPUT: 90005020 

STOP: CLOSE FILE(WORK), FILE(VTSBS),FILEIRIE)S$ - 90005630 

END GENE?; 7 00005040 


7 


— | n:): 


Panwa meee —y — eer ey 


' MASTER 


o.. 
IC 


FE 


< 


~ 


eo, 


f 
| 
~ ANN At 
ae SL | 


“No. 


ye 


seme aaa! fer OF EFINITION OF VARTARBLES? 


/* le NA ~--— MAXIMUM NUMB 
/* IM THAT SECTION. (CURRENTLY SET AT 2) 
/* 2. N10 -- MAXTMUM LINE NUMBER FOUND IN THE PERSONAL AUTHOR 
[= SECTION. (CURRENTLY SET AT 10) 
7% 3. NT --— MAXIMUM LINE NUMBER FOUND IN THE TITLE SECTION. 
ape eee (CURRENTLY SET AT 22) ; “ : fee age tee 
/* 4G. NC <= MAXIMUM LINE NUMBER FOUND IN THE CORPORATE AUTHO® 
* SECTINN. (CURRENTLY SET AT 34). 
1% 5. NS -= MAXIMUM LINE NUMBER FOUND IN THE SPONSORING AGENCY 
* SECTION. (CURRENTLY SET AT 42) 
/* 6. NSO -~- MAXTMUM LINE NUMBFR FOUND IN THE PRICE SECTION. 
ET BERS eT es (CURRENTLY SFT AT 59) ice: 
/* 7. N60 ~~ MAXTMUM LINE NUMBER FOUND IN THE REPORT OR BUREAU 
/* NUMBER SECTION. (CURRFNTLY SET AT 60) 
/* 8. N70 ~= MAXIMUM LINE NUMBER FOUND IN THF AVAILABILITY 
7 7% SFECTION.s (CURRENTLY SET AT 71) 
/% 9. M8O —~ MAXIMUM LINE NUMAFR FOUND IN THE JOURNAL CITATION 
wee po SECTION. (CURRENTLY SET AT 80) aa = 
J 10. N90 ~~ MAXIMUM LINE NUMBER FOUND IN THE DATE, PAGE, AND 
/* DESCRIPTIVE NOTE SECTION. (CURRENTLY SET AT 91) 
x ll. NLOO -— MAXIMUM LINE NUMBER FOUND IN THF DESCRIPTOR 
a has SECTION. (CURRENTLY SE AT 104) 
/® 12. N200 <- MAXIMUM LINE NUMRER FOUND IN THF IDENTIFIER 
we ype om SECTION. (CURRENTLY SET AT 202) — ey eee 
1% 13. NNOC -- THE NUMBER NF NOCUMENTS BEING PROCESSEN BY THE 
* MASTER PROGRAM FOR THIS ISSUE OF AIM OR ARM. 
ES 14. AUTHOR -~ THE NAME OF A PERSONAL AUTHDR- 
/% 15. AVAILABILITY -- THE AVATLABILITY STRING. 
* 16. BD -- THE CHARACTER FOUND IN COLUMN 1 AF THE CARD THAT 
eyo eee SEPARATES THE DOCUMENT DATA ON CARDS. (a) TTT 
/% 17. BT -- CHARACTER DENOTING BEGIN SHORT TITLFe (<) 
yy °° .18. BUREAU_NO -- THE BUREAU MUMBER. ae Se 
/* 19. CARD_NO ~= CARN IDENTIFICATION NUMBER FOUMD IN COLUMN 14 
seo me OF THE DATA CARDS. © an : a 
; /* 20. CAT -— STRING WITH ALL THE DOCUMENT'S DATA USED TO MAKE 
ate THE RECORD ON TAPE. bard bane 1g casiiete anime eee sheet 
; /* 2L.e CODE_NO -- CODE NUMBER. 
P7226 CONTRACT_NO -- CONTRACT NUMBER. 
1% 236 CORP_AUTHOR ~- CORPORATE AUTHOR. 
peo oo 24~6 CR -— CHARACTER DENOTING END OF INFORMATION ON DATA CARDS. 
/* (1) 
———-# —— 25 DESCRIP —~—- STRING OF “DESCRIPTORS or eee 
; 1% 26. DESC_NOTE -- DESCRIPTIVE NOTE. 
/# °° "27%. E --— ARRAY OF FO AR ACCESSION NUMBERS FOR THE DOCUMENTS -: 
* BEING PROCESSED. 
<) : 
E 
ERIC 


THIS PROGRAM GE 
THE OUARTERLY ATM GR ARM 


NATA. 


AM 


NERATES A MASTER TAPE DNATA SET FOR 


THE 


>! oh gt whe ste = 
Wee oie ott he ah ake ok oi ae ahs a he a a ae Bak a 


PROGRAM 


~ 
a 


CHECKS 


THE NATA AS THORNUGHLY AS POSSIBLE FOR ERRORS. IF 


THE NATA FOR A NOCUMENT TS CORRECT, 


A 


FOR THE OOCUMENT ON THE MASTER TAPE. 
ERRORS FLAGGENs AN FRROR MESSAGE TS PRINTED OUT AND NO 


--RECORA GES 


ON 


THE MASTER TAPE. 
HAVE BEEN FLAGGED, 


WHEN 


CORRECT THE BAD NATA.} 
THE DISPOSTTION ON THE MASTER DD CARD TO 


RECORN IS FORMED 
IF THERE ARE 


ALL THE ERRORS 
THEN CHANGE 
-MOD~ AND 


THESE NACUMENTS WILL HAVE THEIR RECORDS ADDED ON TO 
THE END OF THE DATA SETe 


ER OF PERSONAL AUTHORS THAT CAN BE FOUND 


**/00000010 
*/00006924 
*/00000040 
*/o00000gf. 
-=/NO00NNN60 
*/00000070 
*f/00000080 
=s/nNONd0nSsO 
*/O%000100 
*xf/O0c0N001190 
~/00000120 
*/00000139 
*/0000014D 
*/00000159 
*z/O000N00160 
*/00000170 
*/00000189 
x 700000190 
*/000002900 
%/00000219 
*/00000220 
*/00000230 
*/0N0000240 
*/00000250 
*/00000260 
*x/00000270 
*x/QN000280 
*/00000290 
“*sNONNAZNO 
*#/Q00000219 
*/00000320 
*/00000330 
*/00000340 
*/00000350 
*/ONN0NNBEN 
*%/00000370 
*/ONN00N3BRO 
*/00000390 
*/N00004N0 
*/00000410 
#*&/000004270 
*/00000430 
*/00N00440 
*/00000450 
*/00000460 
*/00000470 
- */000004F0 
*/00000490 
*/00000500 
*/00000510 
*/00000520 
*/00000530 


-*/00000540 


*/00000550 
*#/900000560 
*/00000570 
*/00000580 
*/00000590 


“*&/NONN0N6OD ~ 


*/00009610 
*/00000620 
*/ 00000630 


: : 7 
28. FO_NO ~--— ACCFESSTOM NUMBER. */0000N640 


: 29. ET -~ CHARACTER DENNTIMNG END SHORT TITLE. i>) */00000650 
% 30. GRANT_NO ~- GRAMT MUMBER. */00000660 

* 31. IDENT -- STRING OF IDENTIFIERS. */000N0670 
BN HE INDICATOR WHICH SAYS WHETHER HE WERE AT THE END: =~ */00000520 
te NF A NOCUMENT OR NOT WHEN WE HIT AN UNMATCHING */N0000690 

ms VT NUMBER. WHEN WE HIT THE BEGIN DOCUMENT CARD» */900000700 

/# THERE HILL BF A MISMATCHED VT NUHRER FLAGGED. BRUT */00000710 

i won toe rose | THERE 61S MQ REAL ERROR. -IND~ TELLS US THIS. ~ > = “3 7Q0000720N 
fe 33. IMP -- HELPS POSITION US AT THE BEGIHNING OF A NEW *%/00090730 
wa ee ee  AOCUMENT WHEM THE PREVIOUS ONE IS FINISHED. ~°~ ~~ */00000740 
x 34. JOUR_CIT -- JOUPMAL CITATION. */00000750 

fa 35. LINE.NO -- LINE NUMBER ON THE DATA CARD. */006909760 

: 36. LONG --— INTERMEDIATF CHARACTER STRINGS *«/O0000T70 

vss 37. L_AUTHOR --— LEMGTH OF AN AUTHOR'S NAME. */00009780 

oh 38.-L.AVAILABILITY -- LENGTH OF AVAILABILITY STRING~ */00000790 

ara BG SLE BUREAU_LMO -~ LENGTH OF BUREAU NUMBER. 700 7 7 moon 00000800 
: " AO. L_CuNTRACT_NOQ -~ LENGTH OF CONTRACT NUMBER. */00000816 
= Ale L.CORP_AUTHNR -— LENGTH OF A CORPORATE AUTHOR MAME. */00000820 

cs 426 L_DESCRIP -~ LENGTH OF DESCRIPTOR STRING. */00000830 

: a 43-6 L.DESC_NOTF -~ LENGTH OF DFSCRIPTIVE NOTE. */00000840 
Or 44. L_GRANT_NOQ -- LENGTH OF GRANT NUMBER. */00000850 
ie 4 LC TDENT --— LENGTH OF IDENTIFIER STRINGS moo To Teme s00000R 60 
ok 46» L_JQUR_CIT -- LENGTH OF JOURNAL CITATION. */00000879 

/* 476 L_PAGE -- LENGTH OF PAGE STRING. */00000880 

fk 48.6 L_PALNO ~= LENGTH OF PA NUMBER. */00000890 

“x 49. L_PRICE -- LENGTH OF PRICE. */00000¢00 

cs 50. L_PUR_DATE ~— LENGTH QF PUBLICATION DATE. *x/0000091U 

at ho-- BLS LL REPART_LNOA -- LENGTH OF REPORT MUMBER. © 0 7 mm ®/00000820 
f% 52. L_SPONSOR_AG =~ LENGTH OF A SPONSORING AGENCY. */00000930 

/* 53. L_TITLFE --— LENGTH OF TITLE. */00000940 

/* 54. MASTER ~- NAME CF MASTER TAPE. */00000950 

/* 55~- NOLAUTHNR —— ACTUAL NUMBER OF PERSONAL AUTHORS FOR A */00000960 

fae NACUMENT. */00000970 

aa t= BGS” NO_LCARP_AUTHRR -—- ACTUAL NUMBER OF CORPORATE AUTHORS FOR A */00000°R0 
ae DNCUMEMT . #/00900990 

a 57. NO_DES -- FLAG TO INDICAT® IF THERE ARE ANY IDEWTIFIERS */00001000 

sx FOR A DOCUMENT. %/00001010 

/* 58. NO_RECS -- COUNTS THE NUMRER OF RECORDS ON THE MASTER TAPE .»*/00001020 

* 59. NO_SPONSOR -- ACTUAL NUMBER OF SPONSORING AGENCIES FOR A */00001030 

rin et PMT yee Grepe yee Ns | OCCUMENT. : ce Be er rie worm meres os eK OQOOLI4SO 
7% 60. PAGE ~~ NUMBER OF PAGES IN THE REPORT. * /NOO0LNSO 

x 61. PAGE_NO -~ PAGE NUMBER IN THE AIM OR ARM PUBLICATION ON —— */00001060 

/% WHICH THE ABSTRACT OF THE DOCUMENT CAN BE FOUND.*/00001070 

7* ~ 62. PALNO ~-- PA MUMBER. : */00001080 

* 63. PG —-—- ARRAY NF PAGE NUMBERS IN THE PUBLICATION ON WHICH THE*/00001090 

ma ry ee ooo ABSTRACTS CAN BE FOUND. per RRR ER ER SNE rane nin smear OOO LOO 
* 64. PRICE -—= PRICF STRING. */00001110 

Peo «65. PUR_DATE ~-- PUBLICATION NATE. : + + 37990001120 

/% 66. REPORT_NO ~--— REPORT NUMBER. */00001130 
-p- 67s SEASON -~ INDICATES AIM OR ARM: AND FOR WHAT SEASON THE */00001140 

: a -PUBLICATINN IS BEING PRINTED. */00001150 
—— [ie Bs" SEP =e SEPARATER USED IN THE MASTER RECORD -C1}) 00> oom ~-*/00001160 
; /* 69. SPMNSOR_AG -- NAME OF A SPONSORING AGENCYs */00001170 
bene ye FO” STR <= STRING INTO WHICH THE CARD DATA IS READ. -. + #700001180 
; x 71. TAB -- INDICATES WHETHER A CARD SHOULD RE READ OR NOT. */00001190 
ee pm 72.° TB -—- TAB SEPARATING DATA WHEN MORE THAN ONE PIECE OF DATA */00001200 
1a APPEARS ON THE SAME LINE. (>) */00001216 
ae pate PRS TITER See TITLE OF A DOCUMENT. ~ cut mm FZ 0C00 T220° 
om 74, Vo—-— ARRAY OF VT OR NOCUNENT NUMBERS BEING PROCESSED. */00001230 
rf 75 .°VT —- DOCUMENT BUMBER OX FIRST CARD OF DATA FOR A 7" ®7Q00001240 


PARTICULAR DOCUREST. */00001250 


Co _ a 
ERIC ~ | 1 


ae 
bes 


in 72. 
ee Ac 76. VI_LNQ -- DACUMENT NUMBER ON SUCCEEDING DATA CARDS FOR */00001260 


a A ANCUMENT. */00001270 

Vc 7T7 2 YEAR -— CURRENT YEAR. */000012R0 

wy */ON0N01L290 

f*¥-— INPUT- TO- PROGRAK 2-— coe Emenee ae SG aaa eR SAG ae ge) Ronettes tee ee ee FO OOT S00 

1 -SYSIN—, INPUT OM CARAS: *x/00001310 

TE = me CARD 1 -— CONTAINS VALUES FOR THE FOLLOWING VAPRTARLES, ALL IN*/00001220 

* -F(3,0) FIELDS! NAsNLO NT NC NSyN50 ¥N609N709NAN0,NI0» */00001 330 

* 3 N100 «8200. THFSE VARIARLES ARE NDEFINEN IN THE */09001340 

ac PRECEDING SECTION AND THEIR CURRENT VALUES ARE LIST¥/00901350 

ony te AS WELL. CHANGES IN THESE NUMBERS WILL COME THR OUGH*/00001260 

* . : THF VOCATIONAL CENTER. */00001370 

*- > °)|6CARD 62 —-— CANTAINS THE NUMBER OF DOCUMENTS IN THIS QUARTERLY */00001380 

* DATA BEING PRICESSEN. THE CENTER CAN SUPPLY THE */00901390 

* puma VALUE. RIGHT JUSTIFY IN COL 1-5. */00001400 

** CARD 3 -—- COL 1 35 THE ISSUF, "At FOR ATM OR * * FOR ARM, */00C01410 

creme nomen EOL 2-3° 1S THE SEASON, 'F * FOR FALL s "Wot FOR -~ #/00001420 

f* : MINTER, t*SP' FOR SPRING, 'SUt FOR SUMMER, */00901430 

7 — : COL 4-7 IS THE CURRENT YEAR; 19 __ */00001440 

* CARDS 4-? --— THESE ARE THE VTe FD, RESUME “PAGE CARDS. THE */0000145N 

Pe FORMAT FOR FACH CARD IS: */00001460 

: * COL 1-10 -—- VT OR DOCUMENT NUMRER. */00001470 

mf men eee ee SS EML 11 — 30 --- FD OR ACCESSION NUMBER. ver omen BA NOONL4ESO 

18 COL 31 - 34 -- RFSUME PAGE. */0N0001490 

nee Aas : THE LaST CARD IN THIS DECK MUST BE A BLANK CARD.*/00001500 

/* -CARDS—, INPUT Mt TAPE OR CARDS: */00001510 

a A THE FIRST RUM “WITH A NEW SET OF DATA, -CAPRDS~ WILL RE A DOD */60001520 

xs ‘CARN DEFINING THE CARN IMAGF TAPE. MASTER WILL PROBARLY FLAG */00901530 

coo pe ooo THE BAD NOCUMENTS. CORRECT THE DATA CARDS IN ERROR FOR THESE */00001549 

* NOCUMENTS. THEM RERUN THE PROGRAM WITH JUST THE DATA CARDS */00901550 

a es FOR THE FLAGGED NOCUMENTS FOLLOWING A ~//CARDS DD *— CARD, */00001560 

1% MAKE SURE THE MASTER AD CARD HAS A DISPOSITIGN OF -NOD-. THE */00001570 

a Ae ~- RAD DNCUMENTS VILL THEN BE ADDEN TO THE MASTER RECORDS */090001520 

7% ALREAGY ON TAPE. */00001599 

seemteecienn J Spe guinumh ster é de Peers ice : en i . : eo ae ie ee a: = Se i . rae a Bate See os eet ae ee or -%*/0000 1600 

7* SPECIAL NOTES */0N00001610 

/* IT WILL BE IMPOSSIBLE TO UNDERSTAND THIS MASTER PROGRAM UNLESS */00001620 

wx YOU ARE FAMILIAR WITH 3 THINGS: . */00001630 

se Pe- = «LY THE FORKAT OF THE MASTER: RECORD ; */00001640 

aS (2) THE FORMAT OF THE DATA CARDS */007101650 

coe pom (3) THE NATURE OF THE DNATA ON THE CARDS ---- ; wor tess tenn = m9 BF IOON L660 

aa Ys : putea 

coli [SAAR SO AAS A ABO HA ASSO IB AISI SEAR AAO SAAS ASE ABIES SAAS ISOS AS ASAT 0090 18 

. . ‘ Boog1 600 

ore cy aah a Sy aks te tus ee Satay ee S } See m3 00001700 

BEGIN: PROC ENDURE ETON AMASNTS 00001710 

meri eae ie RRL ARE es sche == Se ees eae seem ce nmamnenn = aemenemen wanes erre Fares me eee ees tee eee ee ames 9001720 

: pune ; : 00001730 

averse ere tee ae es CHARACTER. C1 )%s = Phe — ions -- 99001740 

: (Ay N1O NT y NC NS 9150 yN603N70, oink mene 1004200) 00001750 

none meee me cee ee EYP XED RINARY (31,0) ¢ rs ears vt 00001760 

; NDOAC FIXED BINARY. (31, Ode 090001770 
ee ene en ee ee ee ir aaa pe ee ae ee sss seer eee ~ ee ne ee ee re ee ee eee --9Yo000 17280 - 

4 00001790 

dene Sean AEE HS aed = _ sare  QOOOLEON 

, oe READ IN SOME MAX IMUM BOUNDARIES FOUND ON THE DATs CARDS. %/ 00001810 

me renee ea . - - 90001820 

2 ‘00001830 
— BETO FIER CSYSIND EDIT ~ONASNIOSNTENCeNS NSO NEDO ON 70 eNBOANOD, -—-* ONNNIESO - 

NLOOeN200 DUMMY) (12 F03B)4X(143),A01))3 : 00001850 

mrp ie GET FILE (SYSIN) EDIT (NDAC »NUMMY) €F05),K07412A01))3 ~ 40001860 

00001870 


ERIC | 102 


BB. 


ae) ks ooo01esn 

WORK: REGIM: 00001890 

DECLARE 00001900 

AUTHOR (NA) CHARACTER (50) VARYING, 00001910 

=" -AVATLABILITY ~ - CHARACTER ({N70-69)*13227) VARYING, ~~~ > 7777700001920 

BD CHARACTER (1) INITIAL ('!), 00001¢30 

Bina fea: Gee = BEG 0000194N 

CHARACTER (1)5 00001950 

atete assist “BT CHARACTER (1) INITIAL (IK!), "===" 90001960 

BUREAU_NO CHARACTER {((N6C~-59)* °132/2) VARYING» 90001970 

TSO CARDI ND TU Too tom mn QOOOLTIAD 

FIXED RIMARY (31,0), 00001990 

CAT CHARACTER (3736) VARYING, 00002000 

Cape _NO 00002010 

CHARACTER (17)>% 00002020 

CONT RACT_NN CHARACTER ((N5C-49)*132/3) VARYING » 00002030 

————--—-—- CORP “AUTHOR(MC-29) CHARACTER (132) VARYING, srsrem—nr nme 002040 

CR CHARACTER (1) INITIAL Crley, 00002050 

DESCRIP CHARACTER ((N100-99)*132) VARYING, 00002060 

DESC_NOTE CHARACTER ({(N90-89)*132-13) VARYING, 00002070 

E(NDOC) CHARACTER (20), 00002080 

EN_NO CHARACTER (20)¢ 00002090 

anne RT mee CHARACTER (1) INTTIAL (939), sto mT > 90002160 

GRANT_NO CHARACTER ((N50-49)*132/3) VARYING» 000021310 

EP dapee ae Se I 00002120 

FIXED RIMARY (31 9U0)¢ 00002130 

ae y< IDENT CHARACTER ((N200-199)%*152) VARYING, 00002140 

IMP FIXED BINARY (3190), 00002150 

Se ND oa -- FIXED BINARY (3120) aes me Re “+ 9Q00216N 

JOUR _CIT CHARACTER ((N80-79)%*132) VARYING, 00002170 

~K 00002180 

FIXEN RINARY (31,0); 00002190 

L 00002200 

FIXED BINARY, (31599), 000022190 

see TNE ONG os ete Aik Sais ca Seti = ~ 00002220 

FIXED RINARY (3190), 00002230 

eee LONG CHARACTER (660) VARYING, 00002240 

L_AUTHORINA) FIXED BINARY (31,0)¢ 00002250 

L_AVAILABILITY 00002260 

FIXEN RINARY (3150), 000n2270 

To oem Le RUREAULNA ee Se ene aaa “=== QQON2Z2RN0 

FIXEN RINARY (3150)y% 00002290 

eg “LE CONTRACT NO 00002300 

FIXED RINARY (3170) 00002310 

- : L_CORP_AUTHOR(NC-29) FIXED BINARY (3190), 00002320 

L_DESCRIP 00002330 

enn os RB ITXED RINARY (3190) 00 ctr meta ctnnins tacnnesisemmance Sot QQOO2Z SAN 

-L_DESC_NOTE 00002350 

cs awe PIXED RIMARY (3140),9 . zi --- 90002360 

L_GRANT_NO 60002370 

eee panies FIXED RIMARY (31,0), ; 00002380 

, L_ IDENT 00002390 

en te BI KXED RINARY = €3190) 90 00 cco wine ee mee ome = 00002400 

_ JOUR_CIT 00902410 

were FIXED RINARY (3170), - 00002420 

_ PAGE 00002430 

Sanat FIXED BINARY (3170), 00002440 

; : L_ PA_NO 00002450 

tn a ee EEX EDO RIMARY~ O31 90) go cr nt ne ern mmr = 900 2460 

. L_LPRICE 00002470 

eee oe FIXED RINARY (3190)¢ - 00002480 
L_PUB_DATE 


Co 


00002490 


: The 
FIXEN RIMARY (3190)5 


- : 00002500 
Lu REPORT_NA 00002510 
FIXED RINMARY (3150)- 00002520 
L_ SPONSOR AGthS= 39) FIXED BINARY (31290)¢ 00002539 
= eee TAT Le : eo fe SHES oS AS wees eet arte mere om QQ002Z540 - 
FIXED RINARY (31,0); ; 00002550 
MASTER . 00002560 
FILE RECORD OUTPUT SEQU IENTIAL UNBUFFERED, 00002570 
ee ee eres] - : ae = ae, 2 Z -00002580 
FIXEN BENARY. (3120) 590002599 
er em me NO AUTHOR © : : al eee Soe tte ee Q002606 
FIXED RIMARY (3140)+ 00002610 
NO_CORP_AUTHOR : 00002620 
FIXED RINARY (31490)9 - 00002630 
NO_DES 00002640 
FIXED PB IMARY (31:20), 00902650 
See aera eee NC REGS Wo Ratey Fe" SRE SEER SED Beet ates Sine phen de setersore Fe erent mae oe 90002660 
FIXED BINARY (31490)+¢ 00002670 
NO_ SPONSOR . 00002680 
FIXED RIMARY (3120)¢ 00002690 
PAGE : 50002700 
‘ CHARACTER (16) VARYING, _ 600027190 
mat ere een se PAGE NM ve - CHARACTER (4)9°°° mn aes ste een et ee = Q0002720 
PA_NO 00002730 
CHARACTER (2)¢ ; 00002740 
PGI(NDNAC}) CHARACTER (4), 00002750 
- PRICE CHARACTER ((N50-49)%*132/2) VARYING, 00062760 
PUB_ DATE 00002770 
rr CHARACTER- (7)-> oe, _—_ i >) i eee wm xmas a Pee oe ee ty oy at & wae ONNDN2ZTEO 
REPORT NA CHARACTER ((N60-59 8132/2) VARYING, . 000027°0 
SEASON CHARACTER (3)>¢ 00002800 
SEP CHARACTER (2) INITIAL ee ; 00002810 
cs cretes + | SEPERATE . : 00002Fk20 
EPI RY (FIXED BINARY (3150),FIXED ay soteors 00002830 
See So cere eS eens cere see ot F-TXERM-RBINARY (3190) 9¢)9 a: ont seen eee se -QONNABEN 
SPONSOR. ROMS 39) CHARACTER (132) VARYINGs 00002850 
STR CHARACTER (80), . . ON0N2FEN 
TAB . 00002870 
FIXED PINARY (3190)¢ 00002880 
TB CHARACTER (1) INITIAL (Ist), 00002890 
see e eee esse | Toes es seo “CHARACTER ((NT-19)%132) VARYING goer tre 00002900 
V«NDOC ) CHARACTER (10), o000n2910 
OMT wes ° ; F : aaa ie 000c2920 
CHARACTER (10) 9 000692930 
Hedi estate vey ase VT NO os * BEE 20002940 
: pie Sa GT ER 510) : 00002950 
ee eer ey YEAR': “ _ minima. aie da Len ig, 0862S eee Sie eee ca a ce a Aaa NR See Rie Be Say Reldee, BSH TES “Rie e! maen maemo om -=-G000272960 
CHARACTER (4), 7 00002970 
3 : : ad : = “Ty Seg ne 00002980 
00002990 
wees | QDEN FILE (CFRRE) PRINT STREAM QUTPUT LINESTIZE(125), - oro - 00003000 
FILE (CARNS) PEON RECO OGOe S019 
Pacem woes Herne ete eee Sh nee ae nape et F It E - “( MAS T ER ds ; - wee ea ee ee mee ee a et oe tr yee Sos920 
ON ENDFILE (CARDS) GO TO STOPS eG0N5030 
“~~ - ON COMVERSTOMN REGINS ee ee ie -00003040 
; PUT FILE CERRE) ENIT CICONVERSTON | EReoe ai DOCUMENT ',VT) 00003050 
fae aie ayes cee se (SKIP(2) sA(29)9AC10005 a cote ss Y9QO03060 
: GO ve ones 00003070 
a eg me es ENNs- ee mee te eee ee ete ew i ee eee a ee em nate ee om OO Oe ree ee ee ste et ete eee -C0003080 * 
; . 60003990 


/* READ IN REMAINING SYSIN CARDS. */ 00003110 


15.6 


00003120 
00003130 

GET FILE (SYSIM) FRIT (SEASON, YEAR DUMMY ) 00003140 

(A(3)s A(&VgX (72) 9 ACLS 00003150 

ENE EP EO NOWE = 1L-TA NNN Ss PSeteee cee SS Ga Me ee eee «= ONNF1ER 
GFT FILE (SYSIN) EDIT (V (1) sE (1) 9 PG CT)» DUNHY) 00003170 

(A(10)4A 020) 9A (4) 9X (45) ACIDS 000n3180 

IF vit) = * ' THEN GO TO ASGN; 00003190 

de hn pe ek ee Te - 90003200 
END FDLLPS 00003210 
———-ASGNIS OO NOLRECS = 03 a o£: eee ee we eee =m 90003220 
-READ FILE (CARNS) “TENORE (1)3 00003230 

00093240 

00003250 


7*®- READ IN LINE 1 WITH THE CODE NUMBER. CHECK FOR ERRORS INCLUDING A 00003260 
TO MAKE SURE THF SUB-—CGNF IS WITHIN BOUNDS. ANY ERRORS FOUND IN A 00003270 
ee —PNCUMENT -THROUGHNUT THIS PROGRAM WILL CAUSE: AM SRROR MESSAGE TO -REQHN03280 


PRINTED AND A SKIP 19 THE BEGINNING OF THE NEXT DOCUMENT. */ 00003290 

2 00003300 
00003310 

START? READ FILE (CARDS) INTO (STR)3 00003320 

GET STRING (STR) FNIT (VT_MOsL INE_NO, CARD_"O,CODF_NO) 00003330 
nm (A ELOV ECB ECL I SACLTIIG ce somece moeemrns 09023 40 
IND = 03 00003350 

IMP = 23 00003360 

TAB = 03 00003370 

“VT = VTLNOS 00003380 

N= INDEX(CONF_MO,CRI$ 00003290 
cep Eos 0 THEN CATR TEST: Ste eee eer Sense eee s are ee OOS a0G 
CONF_LNA = SURSTRICODE_ NOs yN=1) $ 00003410 

TEST: © TF LINFLNQ -= 1 THEN GO TO FRRG 00003420 

IF CARON 7= 1 THEN GO TO ERRS 00003430 

- --TE (SUBSTRICMDE_NO,692)<40) | {SURSTRICONFE_NO5642)>52) 00003440 

THEN NO: 00003450 

ve ee ee PUT PILE (ERRE) EDIT (°CONE NO. IS OUT AF ROUNDS',VT)~ 90002460 
{SKTP(2)9A(25),A010))5 00003470 

GO TO SKIP$ 00603480 

END 00003490 

00003500 

a 00003519 

ma 7 “CHECK FOR ANY “PFRSONAL AUTHORS AND STORE THFIR NAMES IN -AUTHOR-*/00003520 
00003530 

; 00003540 

NO_AUTHAR = 03 00003556 

ay “CALL SEPERATF(10.NiG,1sTLE_ SECT sLONG)$ naee ~ 90003560 
SRCH: N= INDEX(LONG, 134)5 00003579 
enn TE Nae OOTHEN DNS : a werent eee ce ce ete ee oeemmmn (9003580 
NOL AUTHOR = NO_ AUTHOR + 1: 00003590 

eevee eee ee tetetenne sie neces cto TB NOL AUTHOR > NA THEN GO TO a LLNTH3 - = + 77 -00003600 
AUTHOR (NO_AUTHOR) = SUBSTRILONGs1yN-1)5 00003610 

- L_LAUTHOR(NO_AUTHOR) = NM ~ 25 a 00003620 

; IF (N=-1) > 50 THEN GO TO OFFLUNTHS 00003630 
fe LOM BURSTRCLONG YN e IG Sores ae rae eee COO Se) 
; GO TO SRCHs 00003650 
Senne ets en ert eres = ae st ‘ ENDS - Ree, othe =i aiahaegae oR amet 2? : 7 00003660 
NO_LAUTHOR = NOLAUTHOR + 15 ; 90003670 
Peer cee EE NOLAUTHOR > NA THEN GO TO OFFLLNTHS a ee + 100063680 
; N = INDEX(LONG,CR) 3 ; 00003690 
a ea § THEN ER: TOMISS CRS ter OO ary 

AUTHOR (NO_LALTHOR) = SUBSTRILONG, 1yN-2)3 . 00003710 

vere LP AUTHOR (NQLAUTHARY = N= 15 si ae ia + 90003720 


IF (N-1) > 50 THEN GO TO OFF_LNTH3 : 00003730 


o| . = 
ENC | _ s 105 


fo iLL 


j 
! 


106 


76. 
00003740 
C9003750 
ye PULL THE TITLE OFE OF THE DATA CARDS. CHECK FOR AN EVEN NUMBER OF 00003760 
AND END SHORT TITLE HARKS IN THE TITLE. * 00003770 
_ as - o> 8 eae wea - eee -QO003B7RN 
00003790 
TLE_SECT: ‘00003800 
CALL SFPERATE (20 ott p2 CORP. SECTs LONG) 3 00003810 
sores A TNDEX (LONG ,CR) S$ ON “Gegeee ee sro 90003820 
IF N = O THEN GSO TN MISSCR; 00003830 
ena TITLE = SURSTRILOKFGs19N—-1)3 fee 7 00003840 
LLUTITLE = N- 13 00003850 
I= 03 00003860 
IDENT = TITLE: 00003870 
RET! ro IPMEXCIDENTs3T)$ 00003880 
L = INNFX(IOFNT,&T) 3 00003890 
re ER (MEO) 8 ULEO) & (1480) THEN GO TO CORP_LSECT3°> — svt ou oom 00003900 
JF (N=O) | (L=0) 00003910 
THEN No: 00003920 
PUT FILE (ERRE) EDIT 00003930 
('SHNRT TITLE MARKS ARE NOT CORRECT IN DOCUMENT *,VT) 00003940 
(SKIP(2) A146 0, A(1G))5 00003950 
eer ete ~-GO-TO SKIP; - 00003960 
END; 00003970 
I= 1+it 00003980 
IDENT = SUBSTR( IDENT »L +2) 3 00003990 
GO TO RET; 00004000 
00004010 
ees ee i ete eee ot seems meee + “000040 20 . 
y% CHECK FOR “ANY “CARPORATE AUTHORS AND STORE NAMES AND NAME LENGTHS 100004030 
ARE FOUND. %*/ 00004040 
00004050 
00004060 
CORP_ S| FCT: 00004070 
a a -NO_CORP_AUTHOR = 03 - - -900040R0 
eo Le nn I = 30 Tn NCS 00004090 
: CALL SFEPERATF (1+1+39SPON_SECT,LONG)3$ 00004100 
NO_CORP_AUTHNR = NN_CNRP_AUTHOR + 13 00004119 
N = INDFEX(LONG,CRI)$ : 00004120 
IF N = 0 THEN GO TO MISSCR3 00004130 
wee = CORP_ AUTHOR ENO_CORP_AUTHAR Y= SUBSTREILONGyEgN-2)5 ~ oe O00N4140 
L_CORP AUTHOR (NO_CORP_AUTHNR) = N - 13 00004150 
we es ee TR (N=T) > 132 THEN GN TO OFF_LNTHS “00004160 
END CP_L?3 00004170 
sate HH e 00004120 
00004199 
(wey CHECK FOR- ANY SPONSORING AGENCIES AND STORE NAMES: AND NAME LENGTHSOGO04200 
ARE FOUNO » xf 00004210 
ee eee been 4 00004220 
00004230 
oe SPON_SECT? San Se ge 00004240 
NO_SPONSOR = O3 00004250 
SP-LPr--NO- T-=- 40 -TA MS3~ HA Cee ee 1010181 2-421 0) 
‘ '" CALL SEPERATE (Te 154 sPRICE_ SECT LONG) 3 00004270 
= “=== NO SPANSMRENN_SPONSOR + 13 cae Rear “00004280 
N= INDEX(LONG,CR)3 00004290 
-JF N = 0 THEN GO TO MISSCRE 7 00004300 
SPONSOR_AG(NO_SPONSOR) = SUBSTRILONG» tyne 00004310 
2-5 PONS OR LAG INOISPENSOR Y SON om D3 ttt ttre orm mrmnnrmmnnns QO004320 
, IF (N-1) > 132 THEN GN TO “OFF. _LNTHS$ 00004330 
000N4350 


= a 77. 00004360 


: 7% PULL THE PRICE OFF AF LINE 50. */ 00004370 
sees, Ue +e 20004380 
00004290 
| VCE sete Gr ee eae OC ==" 90004400 - 
L_CONTRACT_MAyL_GRANT_NO,L_PALNO = 03 00004410 

anes % CALL SEPERATF eeneos 5 sREP_BUR_SECT,LONG) 00004420 

N = IMDEX(LOG,TS) 5 00004430 

| whore see oT ON = 0 THEN GN TO MISSCR3 eee Soa Se Me ge ca es OOO REA() 
IF N = 1 THEN GN TN OFF_LLNTHS 00004450 
oe PRICE => SUBSTR ILOMG 9 1 oN-1)5 sia oe nities: Ee ia cal a SRT Eee IEA eet) 

; pi es =N- 13 90004470 
| Sores TR (NAL) > O{N50-49)%132/2) THEN GO TO OFF_LLNTHS 00004480 
LOVG = SUBSTRILONG M4105 00004490 

jours _ 00004500 
00004510 
mee CHEEK FOR A CONTRACT NUMBER. (fo mrt rr en mmm nn 00045 20 
00004530 

00004540 

N = INDEX(LONG,TR)3 00004550 

IF N = © THEN GN TO MISSCR3 00004560 

IF N= 1 THEN GN TO MISS1! 00004570 
CONTRACTING = SUBSTRILOMNGs1,N-1) 3 SESE Sani eee See OG EO 

: L_CONTRACT_NO = N - 13 60004590 
me sm TR GNAL) > C(N50-49)%132/3) THEN GO TO OF F_LNTHS -  90N04600 
MISS1: LONG = SUBSTRILONG »M41)5 0004610 
eS 00004620 

: 00004620 
YE CHECK FORA GRANT NUMBERS ¥/ 05 UT tome wee = 90004640 
: 90004650 
vite. S 4 00004660 

- N = INDEX(LONG,TB)$ 00004670 
sos ss ss = TR ON # 0 THEN GO TO MISSCK; 00004680 
- iF & = 1 THEN GO TO MISS23 00004490 
ER ANTLNG = SUBSTRILONGe Lg N-LY 0 tte te mates ces = = (90004700 

- LL GRANT_ND = Nom 1G 00004710 
ewes “TF (M-1) > ((N50-49)%132/3) THEN GO TO OFFLLNTH; * 00004720 
- _ MYSS2t LONG = SUBSTR (LONG yN+1)3 20004730 
ied a 00004740 

. 00004750 
, eH CHEOR ROR. APA CMIPRER 5 af oes ete eet ete ee aie a erm erence antes eer OOO08T EO 
4 00004770 
ee ee ee ; 00004780 

- N = INDEX(LONG,CR) $ 00004790 
woos ee TE ON = O THEN GO TO MISSCR3 = - - 90004800 
- IF N = 1 THEN GO TO REP_BUR_SECT3 00004810 
Coe PANO = SUBSTRILONG 1 oN-1)3 0 ~ & & ish Getemehierw ate! Ge ae eee. “OO CREE 

” L.-PALNO = N ~ 13 00004830 
i Soe TE EL) ss 2 THEN GO TO OFFLLNTHs ~~ out rm Oe ae ean tt OOO RAG 
a 00004850 
+ Eb saan ace b ee me 4 - 00004860 

- 7* CHECK FOR A REPORT NUMBER. = */ 00004870 
| err te ee eoepriw lene be tei ata eee Wendy Ae eae Shan adte eee os shine ade Beek emeenes tee cee ee ~ OOON4RBN - 
is 00004890 
*-----REP_BUR_ SECT: £4 Soe she es eee Btleee gos em “OOODAGD 
wg L_REPORT_NO,»L_BUREAULNO = 03 00004910 
i Sovere e o = CALL SEPERATE(60+N6046sAVL_SECTsLONG)$ = ahs 00004920 
—— N = INDEX(LONG,TS) 3 00004930 
a a TR NEO THEN GO TO MISSCR 30 ce te nem 0004940 | 

, IF N = 1 THEN GO TO BUR$ _ 00004950 

. core > REPORT_NO = SUBSTR(LONG,2ysN-1)3 a ee ee oy oe OO ORI 
LLREPORT_NO = N = 13 ". 90004970 


anne 


“ERIC - — 10r 


BUR: 


IF (NAL) > €(6O-5978332/2) 
rrNG = SUBSTP {LONG W413 


mem fk —-CHECK- FOR A RUREAU NUMBER. af 


ak 


N = INDEXILONG,CRI)3 


IF N = O THEN GN TO FISSCRS 


78. 
THEN GN TO OFFLLNTH? 


IF N = 1 THEN GO TO AVELSECTS 


“BUREAU_LMO = SUBSTRILONG? lyN— 


L_BUREAU_NO = N - 13 
TF {N-1) > ((N60-59)%132/2) 


- AVL_SECT: 


ale 


JC_SECT: 


d* we 


GET THE PUBLICAT INN ilu PROM LINE ve 
a nn e wee “ff wee oe - 
PUBL SECTS 
; L_PUB_DATE,L_PAGE»LUDESC_LNOTE = Q3 
See SEPERATF (90)N9019+DESC_ SECTs LONG) 
wien MS TNAEX (LONG TB) 5 - 
TE. N = 0 THEN GO TO MISSCRS 
IF N-= 1 THEN DOS 
“PUBLDATE = ! '$ 
L_PUBLDATE =-73 2 
; GO TO GP; 
i i are we ee mn enmamane fee . ae om END $ e - aks | Caeser - - 
, PUBL DATE = SURSTRILONG 1 ¢N- -1)3 
7 - = - L_PUB_LDATE = N - 13° 
‘ IF (N~1) 7= 7 THEN GO TO OFFLLNTHS 
; -GP- LONG = SUBSTREILONGsN + 1)% 
sie a Sc, Oe cet aie Datla ce a Peer e neces : fiscal ea OS 
ok 7 


LLAVAILABILITY = Q3 


1)$ 


3 


THEN GN TO OFF_LLNTHS 


CHECK Li ae AVAILABILITY STRING « 


xf 


CALL SEPERATE (70 987097 1SC_ SECT +L ONG) S$ 


No = INDEXCLOMGs,CR)5 
IF N = O THEN GO TO MISSCRS 


AVAILABILITY = SUBSTR(LONG,1yN-1)3 


LUAVAILABILITY = N ~— 13 


“CHECK FOR A JOURNAL CITATION. 


LJOUR_CIT = 03 


x / 


CALL SEPERATE (80+N8078,PUB_SECT,LONG) § 


N = INDEXILOMG,CR)3 


--TFoN-=--0 THEN GO-TO MISSCRS$ 
JOURLCIT = SUBSTRILONGs1+N- 


L.JOQUR_CIT = N - 13 


1)3 


er THE heer NUMBER FROM LINE | ve: 


IT ALWAYS HAS A LENGTH 


00004980 
00004990 
0n00o5009 


90005019 
~ 9090N5020 


900050340 
00005040 
00005050 


- 000050460 


oon0s07N 


© oonasney) 


o00oa05sacn 
00005109 
000095110 
00005120 
00005) 30 
00005140 
00905150 
00005160 
00005170 
00005180 
009051390 
00005200 
00005210 
00005220 
000052730 
00005240 
00005250 
00005260 
00005270 
00005284 
90005290 
90005300 
00005319 
90005320 
0000533 
00005340 
00005250 
90005360 


Bonen aa) 


“900005380 
0n005390 
00005400 
00005410 
906005420 
90005430 


-00005440 


00005450 
00005460 
00005470 
00005480 
00005490 


~ 90005509 


00005510 
00005520 
00005530 
00005540 
00005550 


“90005560 


00005570 


~00005580 


00005590 


79. 


N= INDEX(LONG,T2)3 
IF N = 0 THEN GM TO MISSCR3 
IF N= 1 TREN pas 
PAGE = ! 3 
eS em L_PAGE = 33 - -- wert ee a 
GN TO DS$ 
ENN: 
PAGE = SUBSTR(LONGs13,N-1)3 
eee ese A PAGE = Mo 14 
IF (-1) > 16 THEN GO TO OFF_UNTHS 


———DSt—— LONG = SUBSTRILONG »N+1) 5 82 ee 


/* CHECK FOR THE NFESCRIPTIVE NOTE. */ 


= fy 


= NEEM CLONGyOR 1G Se Peis G Ree eee 
TF N = 6 THEM GO TO MISSCR3 

IF N= 1 THEM GN TN DESC_SECT 

NESC_NNT E=SURSTRILONG yl sN-1)5 

L_DESC_MOTE = N - 13 


f% GET THE “DESCRIPTOR STRING. */ 


DESC_LSECT: 
LLDESCRIP = 05 
“INA = 
CALL SEPERATF 
-  NO_UNES = 43 
RET2: M = INDEX(NESCRIP CRI? 
aa ~ JF N= 0 THEN GO TG MISSCRS$ 
NMESCRIP = SURSTRINESCRIP » 1a N— 1) 
ni eee LL NESCRIP Moods ar seme cet meee ete ate ae etme wees ae ee 
TF NOLDES 1 THEN GO TO SEARCH; 


(1007N1005105 ID_LSECT, DESCRIP) $ 


Moy ¢ 


ye CHECK FOR THE EXISTANCE CF IDENTIFIERS. */ 


IDLSECT? 
ete es L-IDENT = 03 
IND = 113 
vets rses  TMP = OF : 
CALL SEPERATE 1200 eh2004 Lie SEARCH s LONGI 
~~ comer IMP S Lg te copie odda ap, 0886 dees ty pee ae ae 8 
RETR TF LANG = *! THEN GO TQ Denes 


nee ~N = INDEX €LOMG,CR)3 
IF N = 0 THEN GO TO MISSCR3 
IDENT = SURSTR(LONGs1»N-1)3 mess 
LLIDENT = N - 13 


Bo a es Go-To SEARCH3 te ee mene eee ee ee ae - a oe 


CARD. */ 


- PUT FILE (FERRE) EDIT 


CY MISHATCHED CARD NUMBER IM DOCUMENT ',VT) 


10: - bias foe Gave ersees ah “aN aba Oe Ase . a he poe oes ten 


f% ERROR ROUTINE FOR “HAVING A MISMATCHED cane NES bai THE 


000054609 
000056410 
00005620 
00005630 


~ 00005640 


00005650 
o00nséé0 
00005670 
00005689 
o000nbeEO 


‘00005700 


00005719 
N000572N 
0000E 730 
00005740 
00005750 


N0005760 - 


00005770 
000057280 
00005790 
N0005f00 
00005810 


* OONNEB20 


00005830 
ALON5R40 
00NN5R50 
O0005R60 
00005870 
O0NDN58RN 
00005890 
00005900 
00005910 
N0005920 
00005930 


~ 00005940 


00005950 
0N005940 
00005970 
00005°RO- 
00005990 


~ 00006000 


~“ OOON61LRO - 


00006019 
00006020 
00006039 
060006040 
00006050 
00004069 
N0006070 
NOGNbORO 
909006099 
00006100 
00006110 


°00006120 


00006130 
00006140 
00006150 
00096160 
00006170 


00006190 
00006200 
00006210 


80. 
(SKIP (C27 sACBRV ACI ONG 


GQ TQ SKIPS 
ENON ERRS$ 


1% ERROR ROUTINE FOR A 
CARN. */ 


MISSCRE NAS 

PUT FILE CFRRE) EDIT 
(C' MISSING FMM OF LINE OR TAR CHARACTER IN *,VT) 
(SKIP(2)2A(37)9A(10)73 

IF IMP = 2 THEN Gf! TO SKIP$ 

IF JWP=2 THEM READ FILE (CARDS) 

G9 TO START; 

--- ENDS eh be Bo ag = F ae oem sme ee 


IGNORE (1)3 


fs ERRNR ROUTINE FOR EXCEEDING A STRING LENGTH OR DIMENSION, 


= -OFF_LLNTH? DO - 
PUT FILE (FERRE) EDIT 
("LENGTH MF VARIARLE OR NIMENSION 
(SKIP(2)9A(42),A(10))3 
GO TO SKIP3 
ENNs 


IS QFF IN ',VT! 


MISMATCHEN VT WUMBER OM DATA CARNS, 
NO ERROR IS FLAGGED, */ 


/*® ERROR ROUTINE FAR 
DUE TO A BEGIN DOCUMENT CARD, 


IF THE 


00006220 
00006230 
90096240 
0000625nN 


a Be Gee |e “00006260 
MISSING TAR OR END OF LINE CHARACTER ON A DATADDON627N 


00006280 
00006290 
00006300 
00006310 
00006320 
000063230 
00006340 
0NNC6350 
00006240 
00906370 


~ 00006380 


00006320 
00006490 


*X/OOINGS1O 


“~ FRRORD > TF SURSTR(VT_MO,1;1) 7= BD THEN GN TO BAD: 
IF (IND = 10) & (YTLNN 3= VT) THEN 0O3 
‘ Re IMP = Q3 
LLIDENT = 03 
NO_DES = 13 
GO ™ RET23 
See eee ee Ge oe ees --END oe ee 
IF (IND = 11) & (VT_NO == VT) THEN GO io RETRNG 


“BAD: PUT FILE (ERRE) SKIP(2)3 
PUT FILE (ERRE) EDIT 
~ (*DNCUMENT NO. NOES 

(SKIP VA(43),A010))5 


~GO-TO SKIP$ ? — ii aT 


NOY MATCH ON ONE CARD IN 


INFORMATION THAT ITS REQUIRED FOR 
FTC. ARE SUCH REQUIRED 


sm ERROR ROUTINE FOR MISSING 
OOCUMENT. TITLE, PUBLICATION DATE, 
INFORMATION. */ 


~ NO_LINF: PUT FILE (FRRE) EDIT ; a ee” ; 
(S EXPECTED INFORMATION MISSING FROM DOCUMENT “YTD 
(SKIP(2)2A(34),A(10))3 SiGamEs “aha 3 ae 
ps THESE “STATEMENTS SKIP TO THE BEGINNING QF THE 
NEXT MOCUMENT. | e a 
Qo. 


',VT) 


FACH 


60006420 
00006430 
00006440 
00006450 
NGNN6460 
ONNNA4LTO 
00006480 
00006490 
onnné6s0n 
00006510 


MIT SMANN0N6520 


00006539 
00006540 
00004655n 
0On006560 
ONNN6BETO 
a00N6580 

on0ngnsso¢; 
90N064660 
00006610 
09006620 
00005630 
000N6640 
00006650 
00006660 
00006679 
00006620 
00006690 
00006700 
00006710 
00006720 


00006730 
~ 0OON674N 


00006759 
00006760 
00006770 


- 00006780 


000067¢0 
90006R800 
00ON681N 
00006820 
00006830 


81. 
SKIPs RFAM FILE (CARDS) INTO (STR)S o0n06F40 


GET STRING (STR) EDIT C8FGi CFACLIDS , on004685N 

es ca Sree TE BEG = BD THEm GO T9 SYART?: oonneREN 
GO TO SKIP3 o00n6a870 

rn ar as et mr et mee ee a es a. a See Reese weree eS Set -- ONYNON6PELO | 
o0000689n 

a a ; o00n6sNn0 
o0006g10 

eas fe > SEARCH FOR A AACUMENT'S FD NUMRER AND RESUME PAGE. IF NO CARD IS FO0N0ND6270 
FOR TRE DOCUMENT » AN EPRNR TS RAISED. * 000N493N 

eae ee Satchel oat - - es se a vais. Us. ae at Stes oS 00076940 
o0n006S50 

SEARCH: DO I = 1 TN K;3 00006960 

IF V(I} = VT THEN 003 00NN6970 

EDLNO = E(I)3 o0nceeRO 

PAGE_NO = PG(I)3 00006920 

SS a a rer cena --- 60 TO PGE: Rae ahaa ee = =, Tait RN - OOOO TNNDNA 
ENDS on007010 

END SEARCH: onan T7N20 

PUT FILE (ERRE) EDIT €'ND MATCH MADE ON EN NUMPER FOR 'yVTi 00007N30 

(A(31) A100): O0007040 

IF IMP=% THEN RFAD FILE (CARDS)? IGNORE (1.)5 00007N5SN 

ree GO TO STARTS ; - ‘ : eae ===" >= QOONTNSO 
00007076 

heater We o000TORO 


i% WRITE THE DOCUMENT'S DATA ON MASTER IN ITS OWN RECORD, LIST THE ROONNTAIN 
oe. ON THE PRINTER AS WELL. KEEP A RECORD OF THE NUMBER OF RECORDS ON 000071300 


START PROCESS ING OF NEXT DOCUMENT. */ 00097110 

ses se ea ereneon wie ® eg 5 : Se Lone wee QEQNTI?A 
000073 30 

PGE: L = NO_LAUTHNR + NOLCORPLAUTHDR + NO_SPONSOR + 173 00007140 


PUT STRING (CAT? EDIT (VT CONEL NO,ED_ NN, SEASONs YEAR, PAGE_NO,( 0009071250 
AUTHOR(T) MA T = 1 TO NOL AUTHOR), TITLE, (CORP_AUTHOR(I) DN I =00007160 
1 TOA NOLCORP_ AUTHOR)» (SPANSNR_ AG(i) DO I = 1 TO NO_L SPONSOR) 900907170 


wan en PRICE CONT RACT_NO)GRANT_NO,PA_NOyREPORT_NO,RURE AU N05 7 ~ N000TISO 
AVAILABILITY, JOUR_ CITsPUBL DATE, PAGE,DESC_ NOTF, DESCRIP, INENTs 000071°0 
- SEP,NO_AUTHOR,(L_AUTHOR(I) OQ T=1 TO NA AUTHOR )sL_TITLE » 00007200 


NQ_ CORP AUTHOR: (L_CORP_AUTHOR(T) DO T=1 “Ta NO CORP. AUTHOR), 90007210 
nO SPONSOR, (L_ SPONSOR_ AG{1) DO I=1 TA NO _SPONSOR) oL_. PRICE,s N00NT220 


L_ CONTRACT MO,L_GRANT_NO yL_UPALNN» L_ REPORT _NG,L_RUREAULNO » 00007250 
ee enerh Leu ae ITY, L_JQUR_CIT »L_PUB_LDAT EsL_ PAGEsL _DESC NOTE, °> °° OQ0N 7240 
DESCRIP sL_ INENT) 00007250 


a eT eee eee ee 4),(NQ_AUTHOR) AZAC(LUTITLE)+ 00007260 
({NO_CORP_LAUTHOR) Ay (NOLSPONSOR) Ay ACL PRICE) ACL _CONTRACT_ NOVO0007270 


yA (L_GRANT_NO)sACL_PA_NO)¢ACL_REPORT_NO) gA(L_BUREAU_NO) 00007280 
ACL-AVAILABILITY) sA(L_JOUR_LCIT),» 00007290 
He nea caeeee ATL PUR PATE 4 ACL PACE eA EL, DESC. NOTE) SACL DESCRIP), “ot 77 00007300 
ACL_IOENT )¢A(2)_ UL) F(4))$ 00007310 

wow rears) WRITE FILE (MASTER) FROM (CAT)3$ - ee te 00007320 
PUT FILE (SYSPRINT) SKIP(2)$ 00007330 

oe os) )) PUT FILE (SYSPRINT) EDIT (CAT) (ALLENGTH(CAT)))3 00007340 

, NO_RECS = NO_RECS + Ls 00007350 
7 TE IMP21 THEN READ FILE (CARDS) -IGMORE (1) 00 cero om mer = 00007360: 

; GO TO START; 00007370 
ee moe 2 sale Ba - 00007380 
a 00007390 
hou ye - THIS PROCEDURE READS DATA CARDS STARTING AT LINE -K- AND CONTINUFS00007400 
THE LINE NUMBER IS UNDER -L-. IT PUTS THE DATA FROM THE SECTION 100007410 

: -~—-S TRING -BIG-, WHICH IS RETURNED TO-THE-MAIN PROGRAM-TO BE PROCESSEQ0007420~ 

: TESTED FOR ERRORS. %/ 00007430 
‘. - -o 00007440 
00007450 


Q. 
ENG. 
Lii 


1% PRINT OUT THE NUMBER OF RECORDS ON MASTER.’ CLOSE ALL FILES. 


o.. 
ERIC 


SEPERATE: 


82. 


PROCEDURE (Kel, INN sLBL_NXT-¢RIG) 


DECLARE 
K 


Sab ed I 


READ FILE 
GET STRING 


meek 


FIXED RINARY (31,0); 


FIXED RINARY (31,0)¢ 
I 

FIXED RINARY {hieG), 
J * Ss 
RIMARY (31490), 


~ BIG CHARACTER (660) VARYING, 
LITTLE 
CHARACTFR 


INO 


(66), 


FIXFEN BINARY 
LAL_NXT 
- LABEL 


{31,0), 


(CNRP_SECTsSPQN_SFCTyPRICE_SECT »REF_RUR_SECT, 
AVL_SECT, JC_SECT »,PUB_LSECT,DFSC_SECTsTO_SECT, 
SEARCHsTLE_SECT), 


K TOL: 
1 THEN GO TO LN_CK; Se RS late! canta os 
(CARNS) INTO (STR)3 

(STR) EDIT (VT_LNOsLINE_NO,CARN_NQ) 
(A(10),F(3)4F(1))3 


F TAB 


END SEPERATES 


Ye 
an 


112 


TF VT_NO == VT THEN GO TN ERROR} 
LACK: YF LINE_LNO = JT THEN GN TO CO_CK: 
ie IF CINN=2)1 CINDSO)V 1 CIND=10) 1 (IND=5)  - - ae: Ge 
THEN DN$ 
IF I = K THEN GO TO NO_INF; 
TAB = 13 
RETUR Ns 
END$ 
- ~- wre mete ee eee Pe sme ELSE 3 
TAB = 1; 
IF T = K THEN GO TO LRL_NXT; 
RETURN; 
END i 
COCK: DG 3 = 1 TO 23 
active 2 Dee feo) THER Gh. TO NORD S » - "s : SP arate ae Benes) 
READ FILE (CARDS) INTO (STR)? 
GET STPING (STR) EDIT (VV¥_NOyLINE_NO,CARD_NO) 
(A(10)sF(3) sF(14)5 
IF VT_NO 7= VT THEN 6M TO ERROR} 
IF LINELNO ~= I THEN NO; 
ee ee ee ee eens emee tee 4s tees TAB = 1 es tt ne eee see - — - —- 
RETURNS 
So 7 END$ 
NOLRD: IF CARD_NO 7= J THEN GO TO ERR; 
a GET STRING (STR) EDIT (LITTLE) (X(14),A(66)5 
BIG = BIG II LITTLE; 
se ete ees = ee ate “END -CDLCK 3 wrk cates -~ wet see a eee ned ~~ _ 
TAB = 03 
END_LP? END LOOP$ = °° _ . 2% = 
RETURNS 


00007460 
00007470 
oo0aggT4aéen 
00007490 


~00007500 


00007510 
00007520 
00007530 
00007540 
00007550 
00007560 
00007570 
00007580 
00007590 
00007600 
00007610 


~00007620 - 


00007630 
00007640 
00007650 
00007660 
O0n0TE7N 
00007680 - 
00007690 
00007790 
00007710 
00007720 
00007730 
00007740 
00007750 
00007760 
00007770 
000077&O 
00007790 
oo0n7R0Nn 
o00078&1N 
00007820 
00007830 
N0007TR40 
OO007R50 
oo00T&E0 
00007870 
O000TRERO 
00007890 
00007990 
00007910 


‘00007920: 


00007930 
00007940 
OONNTSSN 


- 00007960 


00907970 


00007980 - 


00007990 
00008000 
00008010 
90008029 
00008030 


“90008040 - 


00008050 
00008040 
00008070 


83. 
STOP: PUT DATA (NN_RECS})3 : on0Ndkaeo 


TF NO_RECS 7= K THEN PUT FILE (FERRE) EDIT 90008080 

(HOT ALL PMCUNENTS WERE PROCESSED. THERE SHOULD RE '4K) 00008100 
(SKIP(2),A(50),F (4905 90003110 

wn CLOSE FILE (WASTER) » FILE (ERRED$*— (om cto om 00008120 
CLOSE FILE (CARNS)3 00008130 

END WORK: 90008140 

END BEGINS 00008150 


ce enon eee oe ee Re Ee ee ee ee _ ee Suedaare Sr sane site Aa aes : mite G nie eas SERS eee siSeeies 
3 
1 


ERIC OF 


JA Fu Toxt Provided by ERIC 


Bh. 


etait semen Reza pasar peony roo =F 


ABSTRACT 


a ra 3 ’ 4 ’ + ‘ t eae | aoc? £ : : 2 prerears! promey Fare 
emten g oy] peeory een) pert (rset? Perr} yom} = 3 pag Gi : 


114 


: aiestarae 4 


TE SUBSTRIVT 191 )= Ia! 


WT F-SUBST (17 


_ 


GENABS: 


85. 


00000010 


REAN ABSTRACT DATA CARDS AND CREATE AM ABSTRACT ROONOOOZD 


FOR EACH DOCUMENT. 
NUMBER y 
-- AND THE ABSTRACT. 


ACCESSI 


CONE CHAR{2)+5 
A_OR_LBLNK CHAR(1)+, 


2 VT CHA 


2 CARN_IN CHAR(4) 


2 DATA C 


me mmm FP ORESUPE_CARDs 


R(iLO)¢ 


HAR(66)>% 


OM 


PROCEDURE OPTIONS (MAIN) $ 
bel LAST CHAR(4)y 


VT_CURRENT CHAR(10), 


IF SUBSTR(VT,391)7=° 


PUT FILE(SYSPRINT) 
PUT FILE(SYSPRINT) 


BADVT1 : 


Ra ee 
~ T° 


Se ante 


READ FILE(CARNS) 
IF SUBSTR(IVT ,1;1) ="! 


A(66))3 


RESUME CHAR(2000) 
-QN--ENDFILE(CARNS) GO TF SORTS 
GET FILE(SYS =) 

JOR wR A ee mw Re a 

JR RW WK Me me Re oe ke a KOK 

[* * 

7* LOOP TQ READ RESUME * 
fe AND FORM RECORD */ 
/* = 
- PRK Hw ww ok A A ok eR 

FIRST: READ FILFI(CARNS) 


"|SUBSTR(IVT,7,1)7=" ! 
SKIPC2)3 


GO TO BADVTLS 


IF 


GET STRING(NATA) 
READ FILE(CARNS) 


A_OR_BLNK 


THEN 
='A' THE 


VARS 


N 1253 


RESUME=VTIECODELITDATAS 
VT_CURRENT=VT$ 


~- T= INDEX (DATAs!E")3 


LAST=CARD_IN3 


IF 


I=O0 THEM 


GN TO AG 


AINS 


INITIAL(! 


INTO (RESUMF_CARD) $ 
THEN 


INTOCRESUME_CARD) 3 
THEN GO TO FIRST 


GO TO FIRSTS 


ELSE 1=83 


RESUME= SUBSTR(RESUMEs191+12)3 


WRITE FILE(SORTIN) 


GO 


TO FIRSTS 


REANM ONE CARP 
READ FILE(CARNS) 


OF 


FROM (RESUME) $ 


aBSTRACT CARN DECK 
INTO(CRESUME_CARD) $ 


")y 


DNs 


° 


ENDS$ 


ENIT(CONE) (X(1),402))5 
INTO (RESUME CARD) 


J: aida 


EN IT CA_LOR_BLNK yCQDE)(AC1) ¢X (78) eA01))5 


CHECK FOR ERROR IN CLEARINGHDUSE ACCESSION NUMBER 


IF SUBSTRIVT e391)7=' 


PUT FILE(SYSPRINT) 
PUT EIDE Saree? 


BADVT2: 


READ FILE(CARNDS) 
IF SUBSTR(IVT,1,1)=%=3'! 


S905 


"ISUBSTR(VTs7,1) >=!" ' 
SKIP (2) 5 


GO TO BADVT23 


/- 


oe 


CHECK FOR 
vlylI= ta 


NOCUMENT SEPERATOR 
GO TGQ FIRST3- 


' THEN 


I= 1HDEX( DATA SEEDS 
CHECK FOR ENN GF ABSTRACT */ 
IF VT7=VT_CURRENT ILAST>=CARN_ID THEN DO; 


THEN 


INTO (RESUNE_ CARD) $ 


THEN DN? 


GO To FIRST; 


is 


Ais 


END$ 


x7 


ENIT(VT sCARD_IDsDATA){SKIP(1) A010) :A(4) 9° 


OR ERD hed DASA TGRIGLT Se hAL Oven) 4 


RECORD CONSESTS OF CLEAR TNGHNONNNN030 
2 DIGIT (CODE 16 BE ween FOR SOR00000045 


OGoo005N 
oo0ooanen 
00000070 
Oo0000GaC 


- 90000090 


00000100 


~Q0000110 


00000120 
00000130 
00000140 
00000150 
00000160 


steerer = OON00170 


00000180 
000001°0 
00000200 
00090210 
00000220 


-00000220 


00000240 
00000250 
000002460 
co000270 
on00doz8k0 
00000290 
00000200 
00600310 
00000320 
00000330 
00000340 
"00000350 
00000340 
00000370 
o000003R0 
000002390 
00000400 
00000410 
90000420 
00000430 
00000440 
00000450 
00000460 
00000470 
00000480 
00000490 
G000050G 
00000510 
00000520 


“00000530 


00000540 
00000550 
00000560 
00000570 
00000580 
00000590 - 
00000600 
00000610 


00000620 


86. 
is CHECK CARD FOR ERROR IN CLEARINGHOUSE ACCESSION NUMBER OR SEQU0N0000630 
xf 00000640 
PUT FILE(SYSPRINT) FEDIT(LASTI(SKIE(2)4,4)3 00000650 
BANIO: PUT FILE(SYSPRINT) EDIT (RESUME_CARD) (SKIP,A(10),A(4),4(66))3 00000660 
wate READ FILE CARMS) IMTOCPESUME_CARD)3 a eee ~ 00000670 
IF SURSTR(VTslyl)='3! THEN GO TO FIRST; 00000680 
£9 TO BADIN: o00nne90 
END 00000700 
coe TE JO THEN RESUME=RESUME] IDATA: 00000710 
ELSE DOs 00009720 
vs RESUMEZRESUMES[SUSSTR(DATAshyI)3 - - 90000730 
WRITE FILEC(SORTIN) FROM(RESUNE) 3 00000740 


GOTO FIRSTS 00000750 

ENN; 00000760 

LAST=CARD-1D3 00000770 

GO TO AGAIN$ 00000780 

ee ee ee ee (> ~& ss vs - = Ll a “sk wes bs xs af = ie ee ove - ee. - are ae tee me te ww wae re er ae Ts Ooo00007eO 
ft ck OR OR OR GO kk ooon0R|0 

SORT: ENDS 9000810 


ST. 


RESUME PRINT 


88. 


/% ae ve 7 a ap ae ~ 60000010 
00000020 
THIS SECTION CREATES THE RESUME PRINTOUT ~~ =. 90Q00030 
00000040 
Seah... asa dace ie Ra IRS ATEN RES Sats Hee ee OOOO ON SI * 
00000960 
aa eaiy as ams 3 : , ~ ie ae . , “= 90000070 
SECT1: PROCEDURE OPTIONS( MAIN) oo000Ga0 
= ee a yes ~ = 9OGANDEA 
PCL ALOR_BLNK CHAR(1)5 00000109 
Se nC ee TO MeO D eat Pence RET GN TT a SEED 5 Steer er aT eye ar gt er cr ge 00000110 
ps . 00000120 
READ CONTROL CARDS » 8 om 00000130 
“/ 00000140 
tea : 00000150 
GET FILE(SYSIN) DATA(A_ORZBLNK) $ 00090160 
Sey rie nie Rae eet eSetesy a pea sega ae eae net erene es Tees Ane] Ft” 
START PROCESSING RECORDS FOR PRINTED SECTION 00000180 
oe / : ~~» 90000390 
UCL BUF_VT CHAR(10)+ 00009200 
: CODE CHAR(17)5 : a ; 00009210 
AIM_CONE CHAR(2) NEFINEN CONE PNSITION(6), - 00000220 
ana ARM CODE CHAR (2)- DEFINED CONDE: POST TION(9) yore cet 00000230 
BUFLED CHAR(20)+ o000024n 
BUF_PUB CHAR(1)¢- ve ns - 00000250 
BUF_SEASOM CHAR(4), 0000260 
RESUME_PG_NOQ FIXEN BINARY(31+:0), yo Ge 00000270 
CARD CHAR(80) y onn00280 
Renae BU ES CMAR CS 1 eb WAR? 2 eee ae ee eee! Seer mieten pieneie eo IDO 2 OO) 
IN_BUFFER CHAR(3736) VAR, 00000300 
ive BRAKUP 0000031 
ENTRY (CHAR(2000) VAR); 00000320 
semen HO EO. Se Te eee teat P_AUTHORS, LEN _P_AUTHNR(2),TITLE_LEN, #84, © 00000330 
_C_AUTHORS»LEN_C_AUTHOR(5),LEN_SA( 2), LEN_PRICE,LEN_CONTRACT, 00000340 
ims eee sc JCsLENZDATE sLEN_PAGES »LEN_DESC_NOTE,LEN_DESCsLEN_IDENTs ~~ "...-~~- 00000350 
PAGE_WIDTH) FIXEN RINARY(31,0),% 00000360 
>= ESPACE_LLINES, INDENT) FIXED BINARY(31,0), bes moe = =~ 90000370 
(FIRST_LINEsTOP_LINE,CON_1ST_LINE) FIXED BINARY(31, 0), o0n0c *80 
--RESUME CHAR(2000) VARs cael 00000390 
(VT_COL »PRICE_COL»CONTRACT_COL GRANT COL »PA_COL) FIXED BINARY(15) 4 00000400 
cara E TP Le HAC SOR). MRR greene tenses Se a ae pee eer UO LG 
(REPORT_COL +BUREAU_COL »LEN_HEAD ING ) FIXED BINARY(15;0), 00000420 
“INDEX_PAGE FIXED BINARY(31,0), bP SRR KER Ee SR Se Ee GOO ah 
INDEX_PAGE_CHACTER CHAR(4)¢ 00000440 
BLANKS CHAR(132) TNITIAL( (13208 © Yy 0 ee es een = 90000450 
(LINF_50, LINE_60, LINE_90) CHAR(198) VAR, 00000460 
oa CURRENT = CODE CHAR C2 TINT TE ALU beg a 00004 70" 
OLD_CODE CHAR(2), 00090480 
Wm HEABING CHAR(20) VARs ° : cette as setts nena arora manne sae mene moeme = = -G0000490 
. (TOTAL_LINES TOTAL COLUMNS) FIXED BINARY(3110)5 /* QUTPUT DIMEN.*/ 00000500 
oe UNDER CHAR (LO) INITIAL( (10) tly: ae meee = BOONOS LO 
j INITIALS CHAR(4) ENITIALO(® Dy 00000520 
DB HAR EY meni amn= 0005 30 
, DCL TEMP_STRING CHAR(2000) VAR3 00000540 
neste ET: AE EAD) CHAR LO Ny Se See eat 08000 Sh: 
: RES_CODE CHAR(2)+ 00000560 
: ote eee ee ‘IVT Fr TXED B INA RY { 15 70) 3 . a ialec ead SNR ae Fores a Sp ee pe “-- 90000570 
: 00000580 
ee ee OO e705 
: EOF CONTROL 00000604 
Rega 6 a es Gk GSekee et Geet Ree ee eee: Bec 


N0000620H 


“"- - ON ENDFILE( MASTER) REGINS 89. 


See eo 00000630 
SIGNAL ENDPAGE (QUT); 00000640 
eae, ee a GNTO FINISHS : 00000650 
END: 00000660 
“UN ERO P EEE CS DRTGUN PpECTNS <r hee ee Se er 0 00n TO 
PUT FILE(SYSPRINT) LIST(*RESUME HAS FEWER RECORDS*) s000N06A0 
ep Brits Re He GN TO FINISH: on00n4bc0 
END 3 a00c0700 
"ON ENDPAGEL QUT) BEGIN: es Se Ss so 8 paeae “ae “90000710 
CURRENT_CONE=OLN_CODES 00000720 
Pe TOPR PE ERT f° THEN DOYS ree NOU TaD 
FTOP='RITEts 00000749 
gis = EGS 3 a J1I=INDENT: 00000750 
J2=LEN_HEADING+INDENT3 00000760 
EMD? a8 00000770 
ELSE nn; 00000780 
RP EEL ERT 8 gm = GQ OOOO TIO © 
J1=LEN_ HEADING+INDENT+ 103 oo0on0sgnn 
Sa a J2=INDENT?: v8 -7 7 = gQooons10 
END $ 000006829 
wees = DUT FILE(GUT) PAGE LINE (TOP_LINE) ENDITCINDEX_PAGEsHEADING) 00000830 
(COLUMN ($1) 9F (4) 9SKIP (0) sCOLUMN(S2) 9 AD5 ooo0nK4a 
a PUTO FILE (NUT) SKIP C2)300° 07° Pitay canes emit Steet ~a ae —-QQ000850) 
TOP_LINE=CON_1ST_LINES o00n0ng8 «en 
=) INDEX PAGES INDEX PAGE41% = 00000870 
ENDS oo0000rRO 
GET FILE(SYSIN) DATA COPY$ on00nKeso 
GET FILE (BADVT) FNITCIVTs (VT_OUT OCS) D0 J=1 TA TVT) CRA) 920 ACO) 500000800 
See enone EVs O: = wwe ere ee oe « Fy ae a . < « FS = rs ee re we we a ee - ~Q00000[T1L0D . 
OPEN FILFt{ AUT) PRINT PAGESIZE (TOTAL_LINES) § 00000820 
- - LEN_LHEADING= PAGE_WIATH-LENGTH (HEADING) $ 00000930 
TOP_LINE=FIRST_LINE?: 00000940 
% 00000960 
Se READ- BIBL INGRAPHIC~ ee erry ere ee 
ef 00000980 
ew te ee eee ee ee etwe = oe . eee - - pra a . > ea . o00002990 
LOOP: READ FILE( MASTER) INTO! IN BUFFER) 3 00001000 
---es > GET STRING CIN BUFFER ) EN IT (BUF_vT, CODE, BUF_ED, BUF_ PUB, BUF_SFASON, 00001010 
-RESUME_PG LNO,RUF2) (A110) ,A( 17) 9A(20)9A(1) + ACO) GF (4) 0000102N 
a LENGTH CIN BUFFER Y 58 DD gt rn rn mmr 9.00 1020 * 
00001049 
ee ee ae ae Me deled Aut Soe 25542 SQ QO01050 
CHECK IF CATEGORY OR FIELD “HAS CHANGED” 00001060 
Sree ee oe er ert ee ae isu IF SO, a a er Ter ibd meena “00001070 
PUT LAST PAGE ON PRINT FILE OON01LGEO 
ata nein RNS ETP = NEW PAG Eo ee a ee 00D LOGO 
See 4 THEN READ ABSTRACT RECORD 00691100 
tuna ieee ee ENTS READ ABSTRACT RECORD eo see tet 0 G0 LO 
a 00001120 
Pee es eee eee eee ey Sg aaa deel oi ns in ee nant ae seine ia os sae ay Eyer Se es ee re ee ae 9000 1 1 30 
: IF BUF_ “PUBE "AT EAIM. “CODEs= =<CURRENT_CODE THEN “po: 00001140 
PP = LEFT -- THEN- TOP =!RE TE 3--——————— 0000 1150— 
- ELSE TOP="LEFT*$ 00001160 
tied een Mice a aes Ceredigee & eet SHOE ke PACES TNDEM PAGEPIY osser ts eo eeee 0017 TO 
. . O. D_CODE=AIM_CNDF 3 eaGe ties 
SO SP SEE a ees -foaeek a gine ee oeten ees SPN AL ENDPAGE(O'*T P3 sada ~---00001190 
ye 4 GO YO RFAD_RESUME: ENO3 00001200 
BURP TAT RARM - CODE W=CURRENT.. CO0E-THEN- DO 00001 710—- 
; IF TOP="LEFT! THEN TOP="*tRITE*S 00001220 
Sey aR cate ea ines ae sce Rech - - ELSE TOPH="tLEFT#$ 0 wot 00001230 
, INDEX_PAGF=INDEX_PAGE+123 (00001240 
<) 
ERIC - 


~ OL 

SI 

= ENDS 
IF KEY=1 THEN GQ TO NO_RES3 


READ ASSTRACT RECORD 


ve 
- 


READ_RESUME: 


a READ FILE (SORTOUT) IMTOCRESUME) 
NOLRES! KEY=03 


ee ne END aoe Oe ere ene wee me eee ree ee 


RES_ CODE=SUPSTRIRFSUMEs1142)3 
IF RES_CODE<'00! TREN GO TO REAN 
- OO r=3 TO IVTs 
IF BUF_VT=VT_OUT(T) THEN Gn TO 


IF SHUBSTR (RESUME 11,10) >BUF_YT &(C 


1 90. 5 # Paes 5 : 
D_CNDE=ARM_CNDES a - =e + ---90001250 


GNAL ENDPAGE(QUT)3 00001260 
a - --- ++ 90001270 
00001280 


oie ee e001 2a 
00001300 
00001310 
00001320 
weve eee et + 90001330 
00001340 

gcc cen ee mem = 0001350 
0000136 
> 00001370 
_RESUME3$ 90001320 
os 00001390 
LOOP$ 000n1400 
Poe spelen ae ae ee GND TaLN 
URRENT_CODES¢t# SODEICURREMNT_CODE= 00901420 


ARM_CONE) THEN DN; 00001429 
PUT FILE(SYSPRINT) LIST C8s*EVROR ON MATCH * sQRUF_LVTsRESUME) § 00001440 
“IF RES_CONEM=CURRENT_CODE THEN ON3 KFEY=13 = + 90001450 
6H TO LOOPS oe 000 i460 
fat ass ss tes awe es Sear See Snes sie 3. cet ORR TS SSE Ree em ee END3~ cee cee atc ee ee ene ne me cee wee ee et ee 0 rere) 1470 i 
END $ 00001480 
ie 00001490 
f% 00001500 
a CHECK IF ABSTRACT VT=RIBLINGRAPHIC VT ie : pang ot 00001510 
IF YES, CONTINUE 00001529 
wee eee eo TREO NOT, RETURN TO RIBLIONGRAPHIC RECORD REAN-IN sore OOOOLESO 
nf 00001540 
IF SURSTRURESIUIMF, 1710) 9=BUF_VT THEN DONS 00001540 
aS RESUME=SUBSTR (RESUME ,1,10) | [BIF_VT3 . ea _ on0n01LdSTO 
PUT FILE(SYSPRINT) LIST('#% ERRORS IN VTS RESUME BIR x 1 ,RESUME ) 5 900015R0 
a GOT REANLRESUMES bee eens <oetineraer a Geter eaten seems ener OOOOT SOM 
END; 29001600 
sae oo “RESUMES SUBSTR (RESUME 213) weteencete es rete cen cores tees QOO01L610 
I= LINEND (QUT )5 . 00001620 
IF I>TOTAL_LINES-4 THEN DN: pee a 8 ae 00001630 
SIGN.L ENDPAGE (OUT )$ 00001640 
aa TEE ENENG COUT) 3 mn OD E65) 
| Se ge ; END3 00001660 
moonrise TNDEX_ PAGE® INDEX_PAGE~1 5 ees es aie es 2 oe eae adam sO DOLE TO 
CARD=* '3 : 000016890 
oad ferme sete - : a a a temnecns of ont ed teense SSeS - 00001690 
is : : 00061700 
re ee —PUT-RESUME-PAGE -INTG-BIB-RECORD AND -WrrTR-RECORD =~" --00001710~ 
xf : : 00001720 


w= SUBSTR (IN BUSFER 95524) =SURSTRICARD 53194) 50 


PUT STRING(CARD) EDIT (BUF_VT » BUF 


aaa Coe tee mem QONGL TBO 
_ENsINDEX_PAGE) (AC 10) yA(20) oF (4))5 00001740 
= wee teres = == Q0001750 


} WRITE FILEC(NEWMAS ) FROMCIM_BUFFER) $ 00001760 
a Al ae are re OUT || O™ 
yx 00001780 
Jane = PUNCH VT-ED RESUME: PAGE CARD ve tame oe en meetin sm marten emer rmmenrtacemmmenccnenns “OOO L TIO 
ie */ 00001800 

. wee sone pees seo ee apes ee - = cost eet ee ---- 90001810 

; WR TE FILE(PUNCH) FROM(CAR i 00001820 
iN EXO PA GES INDE XLPAGEF+1L I~ 1 RES + aetna teerininmmimntemmn OO PASO 
: IE I>TOP_LINE+3 THEN 1=33 ELSE T2535 00001840 
*s eee det eumen ive + ee ee eo eee ca wakes es - ate Ae neat nel mene Hae Lime et me greet enemane teen a ooool 850 e 
e 00001860 


PUT VT-ED LINE INTO RESUME RECORD 00001870 
af OGOO1EFA 
goonie¢nsa 
PUT FILE(QUT) SKIP (ET) ENITERUE_VT UNDER y BUF HED} (COLUMN (VT _ COL yA, SKIP LaNGAg LENA 
4S COLUMAY VTL COL + Ae XCVT_ED_SK TPiahde * Non y1e!£> 
I= INDEX (BUF2stt] ")4ds a0an TSA 
LEN_P_AUTHOR=N3 LEN_C_LANTHOR=0: LEN_SA=O? 009001949 
GET STRING(RUF2) ENIT(:_P_AUTHORS, (LEN _P_L4UTHOR(J) DG Jel TH 00001949 
: #_P_AUTHARS WHILE(4_ P_AUTHORS>0O)), 0n00195N 
TITLE_LEN, 00001°60 
ede ea en eee #_C_AUTHORS, (LEN_C_ANUTHCR (J) CO J=1 TO” 00001970 
#_C_AUTHORS WHILE(#_C_AUTHORS>0)), 00001980 
HSA, (LEN_SACJ) DM Jal TO #SA WHILE(HSA>0)}, 00001990 
LEN_PRICE,LEN_CONTRACTsLEN_GRANTyLEN_PAy 00002009 
LFEN_REPNRT,LEN_BUREAU, 00002010 
LEN AVAIL 00002026 
salLaeghnl RE -LEN_JC, Sas sree = = 900029030 
LEN DATE, LEN_PAGESsLFN_DESC “NOTE, oocn2040 
LEN_DESC, ocnn2050 
LEN_fOENT) 0000204N 
(X(1)-28 Fl4))3s 00002070 
l=1 oo002nR0 
See Se ER en e soos ete 00002090 
px 00002100 
SET UP PERSONAL AUTHNR LINE 00002116 
xf 00002120 
00002130 
IF #_P_AUTHORS>O THEN NN; D0NN27 4N 
caress TE HP LAUTHORS=1 THEN CALL BRAKUPCSURSTR(PRUF2Z 914 - © 00002150 
LEN_P_ANTHORCLII EE! RAEN) 00002160 
FLSF CALL BRAKUP(SURSTR(BUF2s1¢ 00002170 
LFEN_P_AUTHOR(LIII T's "PT ESUBSTRORUF2,LEN_P_AUTHOR (1)4+ O00021P0 
L,LEN_P_AUTHOR(2)) 918 Sart); 000071990 
I= 1+SUM (LEN, ay _AUTHAR D3 0000220n 
aan Someone MER: es END S$ ae sn ttes: = = "00002210 
PTL POSURSTR CRUE e Ae TITTLE LEN ¢ 00007720 
J= INDEX (TITLE: '<')35 on0n22320 
000022740 
/* O00NN225Nn 
SET UP TITLE LINE 000022769 
enn ge fin wns een ee ee mer ne oo 00002270 
00002280 
TWO_PART_TITLE? IF Je THEN GO TO TITLE_PRNOCESSS 000022¢60 
IF c21 THEN TITLF=SSUBSTR(TITLEs2) 3 00002300 
ae TITLE=SUBSTRITITLEs1]1,J-lLI J /SUBSTRITITLEsJ+2 00002310 
3 00002370 
we re ef INDEX (TITLE s P> 8) 35> ee meee en te oes meme oo meenenees ee teens “YOON 2 230 
IF J=O THEN DN; 00002340 
~~ PUT FILE (SYSPRINT) LIST('TITLE ERROR',IN_RUFFER)S$ 90002350 
GO TO LANP; 0000236N 
. - > ENDS - 00002370 
SUBSTR (TITLE J) =SURSTR TITLE S42 95 000022380 
“JS INDEX{ITITLE, S934 0 °° sosece ss ne wee eee ening eee mee ~-00002390 - 
GO TO THWO_PART_TITLE3 00002400 
TITLE_PR8NCESS: CALL RRAKUP(TITLEY IT! Satrys CIVGN2410 
PUT FILE(QUT) SKIP(SPACF_LLIMES) $ Oi 102420 
J=1+TiITLFE_LEN?: 90002430 
09002440 
fee Sen eae pe mens cee es 2 Hee ee Se eoeniieia etn  Aantsoeirect Ses heiirn ete * —-=--- - 00002450 - 
“SET up CORPORATE AUTHOR LINE 90002460 
se “ 00092470 
00062480 
112i 


91. 


TF #_C_AUTHORS>C THEN 


CALL BRAKUP(SURSTR 


(BUF2Z 91» 


92. 


NN J=1 TA #_C_LAUTHORSS 


mart 


T=T4LEN_C_LANTHOR{I J): 
ENN 3 
IF -#SA>0 THEN “AN J=1 TA HSA; 
CALL RRAKUS (SUBSTR(FUF2,1,LEN_ 
I= I+LEN_SA(J) 3 
ENDS 


won eee he + SET YP PRICE LINE 


BEGINS 
* TF LEN _PRICESN THEN O03 


LINE_50=SUBSTR(BLAMKS «1;+PRICE_COL-173 


LEN_CLAUTHOR (SG) Et 


SACJIIEE' Sait; 


5 


wooeeeme = EINE SO=LINE_ BO) PSURSTR (BUF291T9L EN PRICE) P| SURSTRIBLANKS gle 


IF 


COMTRACT_COL) ; 
I=J+LEN_PRICES 


IF LEN _CONTRACT=O THEM LINE_50= LINE_5Ol| 


SUPSTR(BUF2,1T+LEN_G 


RANT) 3 


00902420 
90002505 
00002519 
o00n2zfa0 
o00g0g252n 
NN0Nn2540 
900gng2z550 
o0002z56é0 
00002570 
OOCOZSED 
onngg252n 
N00N2600 
O00NeE1LD 
00002620 
00002439 
00002640 
on002650 
000024666 
00902670 
00002680 


FLSE Lit& SO=LINE “50! 1SUBSTR(RUF2, TyLEN_ “CONTRACT )O0CO2690 


LINFE_ 60=SUBSTR(BLAMKS sl,>PRICF_CNL—-1) 3 


LEN_REPORT7=0 THFN 
LINE_60=LINE_ 601 |SUBSTRIBUF2 91 LEN 
nee LEM PRICE-LEN_ REPORT) $ 
FLSF 
LINE_60=LINE_6Ol ISURSTR(BLANKSs1,LEN_PRI 
I= I+LEN_REPORT: 


-IF LEN_BUREAUSR=0O THEN 


ER LINES 


CE?$ 


LINE 60=LINE_L 601.) SUPSTRI BLANKS + 44GRANT pHeT A SUb STE COMres Ty 


ENDS ae : fe BS ne 


~~LEN_ BUREAU) 3 
T= I+LEN_L 


PUT FILE (OUT) 


BUREAUS 
EDIT(LINE_60) (SKIP ,A)3$ 


“SET UP AVATLABILITY LINE 


1L>0 THEN CALL BRAKUP( SUSSTROB 
I=T4+LEN_AVATLS 

on>O THEM - CALL BRAKUP ( SUBSTR (B 
I+ T4LEN_ JCs 


IF {| EN_LAVA 


IF- LEN 


“BEGINS 
PUT STRING (LINE_ 920) 


END ; 


2 


UF2,T,LEN_AVAILIII' 


UF2,1,LEN_JC IIT: 


» SURSTR(BUF2,1,LEN 


Ts T4LEN_ CANTRACTS 
I= T4+LEN_GRANT?$ 
IF LEM_PAsn=0 THEM LIMF_50=LINE_SO/]1SUBSTREBLANKS,1,PA_COL) II 
SUBSTRIBUF2s1TyLEN_PAD$ 
: T=Tt+LEN_PAS 
PUT FILE (QUT) EDIT(LIMF_50) (SKIP sA)3 
. oa END ¢ 
ENDS 
SET UP REPORT AND BUREAU NUMB 
BEGINS 
IF LEN_REPARTSOTLEN_RUREAUSO THEN ON3 


REPORT IIT SURS TRA BLANKS +29 


2 
4 


> 


, dS 


DATE), 


NQNN2ZTOH 
00002710 
00002720 
00002720 
oq00agd0aTEeEN 
JONNZTSO 
ONNN27CO 
00002770 
O00g2zTEH 
00002790 
oon0dg2Fr N00 
o0002z81N0 
CONN2ZR20 
GOON2+.3n 
00002840 
Oonn02F59 
N0002F60 
00002870 
N000' B&O 
ongs289n 
900092200 
000022910 
on0ng02zg 29 
00002230 
60002940 
00002950 
00002969 
00002970 
00n02980 
090002990 
900003000 
00003010 - 
00003029 
00003030 
00003940 
003993050 
DOO03B0ES 


00003070 ~ 


O00NBORO 
00003060 
00003109 


93. 


' ',SU STR (RUEZ,TtL EN _DOTE,LEN_PAGES))(A(11),4,402),4)$ 900003110 
IF SUBSTRILIME_O9O,LEN_NATE49,2)=' '§ THEN SURSTRILINE_90, O000A12N 
LEN MATFHES g2VEtHOANS NOUNS 120 
TF LEN_MESC_POTFSO TREN LINE_OO=LIME_OOI G'S t] 1SUBSTR (BUF2900531 40 
STE ie Sees Ge ES sat Te TFL EN _OATEFLEM_© AGES,LEN_DESC MATE) +s: = COANNATSEN 
J=T4LEN_NOATEFLEN_PAGES+LEN_NESC_NOTE: 00003169 
CALL RPAKUP(LIME_SOTT' Sart: 5 00003170 
PUT FILE(OUT) SKIP(SPACE_LINES) 3 00003186 
ENN$ 00003190 
00063200 
SEE heey ae neanecate ates = os oS ee ee ; cris ~ 000032710 
SET UP PESCRIPTOR AMD INENTIFIFER :«.- NES 09002220 
as 00003230 
00003740 
IF CEN_NESC>O THEM 993 00093250 
TEMP_STRING=t*NESCRIPTARS ~ "'PLSUPSTRIBUF2,1,LEN_NESC)3 90003264 
wr ee TEMP STRINGETEMP_STRINGHEE! Batts ts aes mom = QON03270 
CALL BRAKUP(TEMP_STRING)3 00003220 
I=I+LEN_DESC?: 90003290 
IF LES TDENTDO THEN DN; 00003310 
TEMP_STRINGS*PINEFTIFIERS - MTT SUBSTR(BUF? , 1 -LEN_ TOENT)$ 00003320 
SaaS ree TEMP _STRIMG=TEMP_STRINGI It Yar's aaa aie ~- 9N0N3330 
CALL BRAKUP(TEEP_STRING) 3 00003349 
END 3 00003350 
00003360 
s% SS ae 00903370 
SFT UP ARSTRACT LINE ONNA33R0 
: xs bees a ee = as wees em  QQ003380 
00003400 
T= INDEX (RESUME, PE 8) 5 00003410 
IF 1=0 THEN I=LENGTH(RESUME ) +15 00003420 
INIT IALS=SUBSTR(RESUIE 91-5 94) 3 00003430 
RES UME= eg dase ee 90003440 
pena ne CHURN a Nee ae Sts ESUMESRFSUMEILT! Sart; - fae SEN Eee NS ES GS Se ads -00003450 
PUT epuereur: SKIP (SPACE_LLINES)3 00003460 
TEMP_STRING="ARSTRACT - '{{IRESUMES 00003470 
CALL BRAKUPYT EOP ST RINGHS 00003480 
IMITIALS='! ; 00003490 
GN TO LOOP: /* START NEXT DOCUMENT#/ 00003500 
sommes PENT SHS REG IM canes ee ea Heda 90003510 
CLOSE FILE(QUT), FILE (SORT OUT); FILE (MASTER) 3 00003520 
morte sme PYT FILECSYSPRINT) DATACINDEX_PAGE) 3 SS J0003530 
END FINISH3 0900345490 
00003568 
a SOR MER eae a reer tee se eget tee nmemen nee ae _— se — ee ae * avers ee te tate ee me eee anni cesses aames men eee VCP OT) AF CY 
BRAKUP ‘ts USED RY THE MAIN PROGRAM IN BREAKING UP 00003580 
- THE BIBLIOGRAPHIC RECORD FOR THE RESUMES - - oR 00003596 
RESUME RECORDS ARE PRINTED AND AV A FAGF'S 00003600 
eS EMM THE TOP OF THE NEXT PAGE IS SET UP, et - OONND36iN 

: xf 000036209 - 
Secs ots Nese t cee ce ae eee eee neti sete Saiiash aids aa aioe, caer eames Bashan fb eee ee eee rete ee creme == 0003630 
BRAKUP: PROCE DURE (LING) $ 00003640 
~~ PCL LINE CHAR(2000) VAR, : - a Se ” a EES 00003650 
OUT_LINE CHAR(122) VAR, 00003660 
CHECK_INDEX FEXED BIMARY(3159)¢ = a 00005470 
' (S—e1,/K) FIXED BINARY(15s0)5 ONO03680 
ne J=PAGE-WIDTHS nee ee ee tte ea ee ce Lot sheen eet te ee -OONNZAIO 
OUT_LINE=LINE : . oo0nn3700 
~- TF LENGTHILINE )<PAGE_LWINTH THEN DOS - 00003710 
T= INDEXCQUT_LIME,! Sart); C0003720 


o.. 
ERIC 


oh, 


QUT _LISE=SUBSTR(MUT_LINE,1,1)3 00003730 

PUT FILECQUT) FRIT(COUT_LINE) (SKIP yX CINDENT),A)$ NANN3740 

RETUOMS N0003759 

ENDSs N0003760 

-—--KLONPS NN K=1 TO 503 - - 00003779 
si IF J-PAGE_MIATH>=SLEMGTE(LIME) THEN RETURN; N00N37EN 
-~FLANP: DN I=G TOA PAGE_WIOTH-23 00003790 


IF SUBSTRILTHE,I-T,1)=! ']SUBSTR(ILINE, J-1T,i)='-!' THEM DOs QNNN3800 


oe EE eS ee TF LENGTHILTME)-S>=0 THEN 00003810 
CUT_LLIMNF=SUBSTRILINE, JMPAGE_SIOTH+1L-.PS4GE_WIOTH-1)3 N0093820 

er Aen atin hes aie ae aioe et ue F t « eee ae EL SE ee. a OONN3A 220 
OUT_LIMF=SUPSTRILINF ,J-PAGCE_WIDTH+1)3 NONMZR4O 

GQ TO NEXT_LLINE: of0N3F50 

ENN $ 90NN03F60 

FRO FLOP OUNNBSETO 

NENV_ULINE: J=J+FAGE_MISTH-T: YVOOOZLRO 
nomen CHECK  TMOF X= PMNEX (NUT_LINE, *Aae &) > : nee QNN0NARTH 
iv CHECK_INDEX>O TREN 003 00002 20% 

TF CHECK_INDEX<3 THEN RETURNS 00003910 

FLSE 00003620 

QUT_LINF=SUBSTR(IOUT_LIMEs, 1, CHFCK_INDEX—-1)3 00503930 

PUT FILFENUT) FERIT(GUTLLINE)(SKIP,XCINDENT) ,A33 ; 00005940 

weer Ee ieee ROR TPR eG OOADBIESO 
ENN 3 O°O038 960 

: i PUT FILE(QUT) ENITCOUT_LINE) (SKIPsk (INDENT) 5A) 3 90003970 
END KLOOPS ONNN3ERO 

END BRAKIIPS 00003990 
000049000 

Meta gobi “eee, OS 5 Be = : : : A : eases we Ge ji. Ses -- OONNNGALTO 
00004020 

END SECTLS3 aconr+030 


MASTER EDIT 


cen 
RY 


Jo SE Meee oe oo ve ve A KE ec cele fe Xe te se see oe tok oe ot: Xe she Wo eR A et soo EE AF Kaku tok eat e JOCGCIOIGL LS 
1% */OD0N5920 
/* € ng: iT PROG GRA M FOG R “AS T ER */OCIIOOAN 
/* */O00900040 
s% =/ON9090950 
Je PUR@ISEs THE PROGRA4 TAKES A HASTE® TAPS MATA SFT AND COPTES BAOIIIGIOD 
* LP GNTO ANOTHER TAPE WHILE ENITInG IT. K/ODIIIITEG 
# =/ONNDINIRA 
/* PROGIAM FXPLANATION?S */OGCOIOIGI 
1% THE DROVPAY TS GIVEN A LIST OF DUCUYENTS “HICH HAVE ERRORS *SOONNIITOAD 
% IN THEL2 FECHANDS AM MASTER. THE PYOGRAM TUPYES THE DATA SET */ONQIOLLO 
(7% CNTC ANOTHER TAPE RUT THE BAD DCCUMENT RECEKOS ARE CRP CF */090000120 
/* THE NEW TAPE. WHEN THE COPYING IS COMPLETE, THE MP AER TS © 490000136 
1% DATA CARDS ARF READ IN. GF COUPSE, THE FRKEOHS Mi THESE CARDS  ¥/00090140 
1% HAVE REFN CHRRECTEN, A PONCE ALMOST IGCENTICAL THE */O00909150 
Jt MASTER PROGRAM TS THEN CALLE) TO PROCESS THESE DATA CAPS AND #/0009016¢ 
f% PUT THE PATA JM THE NEW TAPE. Stl THESE bACuUYENTS HtAT) */OCIIOLTA 
/* FREOZS KREEGRF ARE Ne CORRECT AND ARE AT THE FND NEW */OCNOOLBO 
SK DATA SFT. : *#/00QN9ND190 
1% */QOOIDD200 
f % NPUT TO SRAGPAY? efCONNOZ LO 
1% -SYSIN-, ENPUT ON CAPDOS */0N09N050270 
[ CAPO 2 ows THE “UNRBFR OF DOCUNFRTS WITH BAD PFOOUROS THE #7900992 30 
/% MASTER TAPE OATA SET. COULS 1-4, BIGHT JUSTIFIEN. #700090 245 
/ MAS TS THIS NUMBER. #/9509025C 
1 CARNS 2 — (NAtL) -—- FRE vT NUBFSERS CE TMF NACUMENTS, CME 10 */OOUDOG?2 ¢.0 
m A CAPO IN CLS L-io.e *B/OOO9I2 TC 
1% CAPD NAt2 --— VALUFS FOR THE VARTARLES NA, NLOe NC NS» e/OCOVIO28G 
/* N50, NOG, M7, MAD, NOOO, NLOD, N?2O0 ARS ON THIS */000090 2960 
* CARD. EACH 1S RIGHT JUSTIFIED ITN CONSECUTIVE *¥/NCIDINZOO 
/* 3 COLUMN FIELD WIDTHS. SSF THE KMASTER PROGRAM */U00D9NO31LG 
15 NOCUMENTATTION FOP THOIS VALUES. z/OINADIZ20 
1% CARN NAt3 --— THE FXPRCTEO MUYEELR RFE NCCUMENTS PROCES SFDN#/00020 330 
/%* THIS PUN, COLS. 1-Sy RIGHT JUSTIFIED. */O0C00 340 
/* CAKO NM4A44 -- COLUMH L HAS *A® FOR AIM 2 © F FOR AR A, #/ 000900359 
% COLUMNS 2--2 HAS A SEASUM, OF ©, 9° » OP % /000 0360 
/% *Sut,. , */00059370 
at COLUMS 4-7 1S THF CUPRENT YEAR, */OGNNDIAD 
1% LAUDS Nint5 - 2? —— THE VTH%, FO#H, PAGE CAYDS,WITH FL AMK = /00099390 
oe CAPN AT THE END OF THE DECK,FOLE MN! HERF. */000900409 
/* THFSE CAPDS ASE FOR TSF BAD DACUMENTS ONLY. */90090410 
1% ~CARNS- */00000420 
1% ' THESF ARE THE DATA CARCS FOR THE ODGCUMPNTS WITH FRRSA25 WHICH #/00990430 
/ HAVE REFN CORRECTED. THE NECK STARTS AND ENNS BEGIN */00090440 
f% OPCUMFNT CARO ('at IN COLUMN 1, BLANK IN COOLS. AND SUCH*/00000450 | 
m A CARD SEPARATES THE MATA FOR EACH DOCUMENT. *x/0C000460 
/* : */00090470 
J PEA MER IEE tee oe ea Ree te ee Re ee Rea Re Ar es A ae he ake ee ae ae ie a ie aR ar oc ale is Se Re oe ae A ae Me Re Res ote ae eRe oe pe He ke OK 01390480 
, = , ; : as ~~ - 00000490 
EN} T=:  PROCENURT @OTTONS (MAINS C90U0500 
DECLARE 00099510 

CAT CHARACTFR (37346) VARYING, 00000520 

DUMMY 96000530 

CHAFACTER (13,4 00000540 

“(NANT ONT INC INS NED eNOOSNTOSNSOSNGCNIDON2Z0O0) 00000550 

FIXED GENARY (21,09); 090090560 

NOC FIXEG BINARY (31,0), onNnN0057A 

MASTL 00990580 


o.. 
ERIC 


FILE SEQUENTIAL INPUT RECORD, 


$7. 


MASTER FILE SEQUENTIAL GUTPUT RECRPD, 
¥t900) CHARACTFE? (10)+ 
VT 


CHAPACTER 110); 


oa 


COPY THE OULD MASTER DATA SET TO A NEV MASTER DATA SFT, 


{%* 
PR OFF THE DOCUFERTS WHOSE RFCORDS HAVE FRPORS. 
GET FILE (SYSEN) EDIT (NASODUMMY? CF(4)2X%075) ,401005 
LIGP Ls OG Me = ] TH NAG 
GET FILE (SYSEN) SUTT €VENC)»MUMAY) (ATO) X C69) ,A01L 95 
END tOOP 1; 
ON ENDF ELE (4AST1) SO TH DATA; 
READ: OTAD FILE (MASTLI INTO (CAT); 


LOUP?Z: OO We 


DATA: CELASE FILE (¢ASTING 
BET FILE OSYSER) EDLT (NAZRLO NT NC eo WSe MOO re MOONTIANIN, 
NLOON2900,O0UMMY) CL? FOCI KES 3S AULID: 
GET FILE ¢(SYSIN) ENLT ONPG, DUAMY) CFCS XCF 0, 
7* THIS BLOCK TS AL“OST TNEPTICAL Th THE WASTER PRHGRAM. TT wilt 
/*® PROCESS DATA CARDS FOP A DUCUMENT ANDO WRITE A RECORD GN THE 
J MEW MASTFR DATA SET FOP THAT DGCUMENT, 
WORK: QEGINS 


o.. 
ERIC 


SET STRInG (CAT) FRUIT €vt) ¢ 
1 TO NAS 
IF vt VONC) THEN 
ERO LOGA82 5 

WRITE FILE (4ASTER) FROM 
PUT LIST OVT)5 

SG TO READS 


AEVOVVG 


no 


50 Th READ; 


(CATS 


NECLAPL 


AUTHOR CNA) CHARACTER 0) VARYING, 
N 


(5 
AVAILABILITY CHARACTER €(N7N-69)%*132) VAR 
RD CHARACTE® (1) ENITTAL €'a%)s 
REG 
: CHARACTER (1)5 
BT CHARACTER (1) IMITIAL ('<"), 


RUAFAU_NOD 
CAQPOLUNY 

FIXED BINARY 
CONF _ Ni 
“ To SETUR CLM) 


(31,9), 


thd); 


YINGs 


CHARACTER CONGO—59)%132/2) VARYING? 


CON i. CHARACTER €(N50-49)%132/3) VARYING? 
CORP_AUTAIRINC~29) CHARACTER (132) VARYINS, 

CR CHARACTFS® (1) INTTYAL (8d ds 

DESCRIP CHARACTER ((N190~99)%132) VARYING, 
NESC_LNOTE CHARACTER ((NGO-897*132-13) VARYING, 
FOENPAC) - CHARACTER (2004 ; 
EN, NO CHARACTER (2015 

ET CHARACTER (1) INITIAL CD"), 


LEAVING 


NIO 


» 00996590 


CONVSOG 
Sees 

NOV9NNS?O 
OOI906 30) 
OCN0OG4O 
ON0N0659 


*fOO9N90660 
*/09070679 


OB) QOARED 
ON000690 
09000709 
Qn0000TIO 
O2090072C 
ON00G7 29 
000n0740 
coconrmsa 
99090 TOG 
9090077.) 
OGO9978O9 
OCONOTAO 
onGgnosan 
NCONNR1TA 
009908 79 
O20008 30 
07900849 
oo900ngas 
900900860 
00590879 
OOGCNORBROD 


*/00000699 
*/ONNNDINO 
*/00070910 


0NNI09eC: 
0909009 20 
00090946 
qa0n0es&o 
009000969 
NN900970 
00090980 
00000999 
86091900 
OGO9101L9 
06001020 
OOGOLO20 
N000LN4S 
Coo0u1lGs0 
O0G-319060 
OCNILOATO 
ONNILOBD 
OO341L0946 
QOCGOILLGY 
GHOQ011T1O 


—OVNNOLL20 


00001129 
OCOOLL4S 


GCRANT_NO 
i 
FIXED BINARY 
IDENT 
rar 


~ JNUR_CYT 


m4 

FIXED BINARY 
L 

FIXED BINARY 
LINE_LNG 

FIXED BINARY 
LONG 
L_AUTHORINA) 
L_AVAILABILITY 

FIXED BINARY 


LURUREAU_NO 


FIXED BPNARY 
L_CONT& at TNO 
FIXED BINARY 


CHARACTER 


(31,0), 


98. 


((RS9-49)%132/3) 


CHARACTER ((N290~-199)*132) 


FIXED 


CHARACTER 


(31,9), 
(31+0)+% 


(3190), 


CHARACTER 
BINARY (21,0), 


FIXEN 
(31,0), 
(21,9), 


(21,0)» 


PINARY (3leC)9 


VARYINGs 


VARYING, 


((NSO0-79)%132) VARYING, 


(640) VARYING, 


L_CO?P_AUTHOR(NC-29) FIXFD RINARY (31,0), 


L_OFSCRIP 
FIXED BINARY 


~ LLNESC_LNGTE 


FIXED RINARY 

FIXED BINARY 
L_IDENT 

r ED BINARY 


“LisuuR IT 


FIXFD BINARY 


“L_PAGE © 


FIXED BENARY 
LP A_NO 
FIXED RINARY 


~LUPRICE 


FIXER BINARY 


~ L_PUB_LDATE 


FIXED BINARY 
L_RPFPORT_NO 
FIXED AINARY 


LSP ONSOR_AG(NS-39) 


L_TITLF Lo: 
FIXED BINARY 

N 
“FIXED BINARY 


_NG_LAUTHOR 


“ETRED RINARY 


— NO_LCARP_AUTHOR 


FIXED BINARY 


_NOLDES 


ERIC 


FIXED BINARY 
NO_RECS 
: FIXED 3INARY 
NO_SPINSOR 
““ FIXEY BINARY 


(31,0), 
(3110), 
(21,0)¢ 
(31,0), 
{31l90}¢ 
(31,0), 
(3190), 
(31,0) 
(3190), 


(31,0)+ 


(2L:0)> 


(31,0), 


“(31,0)8 °° 


{31,90),+ 


‘(31,0}% 


“(3B1,0},, 


(31,0); 


FIXED BINARY (3190)__ 


jwed 
aa * 


00991159 
00001160 
000011790 
00091180 
00001190 
00961209 
00001210 
00091220 
00901239 
00991240 
00091250 
09001269 
00091270 
00001289 
O0NnL2g0 
009913090 
090001310 
OON0L320 
00001339 
00091340 
00001350 
00091366 
00991370 
OGQ01L389 
00901390 
00991400 
OONOL410 
00001420 
0N090L439 
ONNNL440 
00001450 
00001460 
00001470 
00001480 
00991490 
000 J1590 
OGI91510 
00001520 
00001539 
00001540 
00001550 


“00001560 


00001570 
GOO00158G 
00001590 
OOONL60G 
00001510 
oonale2c 
00091630 


“OOU0LE4G 


60091650 
00001660 
00991670 


“0030168C 


00001690 
000901700 


TEST: 


o.. 
ERIC 


GET FILE 


CODF_N = 


99. 


PAGE 
(15) VARYING, 
CHARACTER (4), 
CHARACTER 
~ PGUNMCC) 
PRICE 
DUS _ DATE 


(2), 
CHtAPACTFR 
CHARACTER 


(4), 
(0850-49) %122/2) 


VAF YING, 


CHARACTER (7); 
REPORT) CHAPACTEP (IN69~59) 4132/27) VARYING, 
SEASON CHARACTER (3), 
SEP CHARACTER (2) IMITIAL Cede), 
SEPERATE 
FNTRY (FIXED BINARY (31,0) ,FTXED BINARY (3149), 
FIXED SIKARY (31,09) 55), 
SPONSOR_AG(NS-39) CHARACTER (122) VARYING, 
sTe CHARACTER (83), 
rant 28 Lo 
FIXED BINARY (71,0), 
Te CHARACTER (1 RAED: {tal), 
TITLE CHAPACTER (C(NT-19) 1342) VARYING, 
VT_NO 
CHARACTER (10), 
YEA® 
CV ARACTER- (4), 


. 


OPEN FILE (FRRE) PRILT STREAM GUTPUT LIMES IZF (125), 
FILE (CARDS) INPUT &FCCRD: 
ON ENDFILE (CARDS) GC TA STAP; 
ON CONVFE STON RFEGIN; 
PUT FILF (CFRRE) ENIT C' CONVERSION FRROR IN OGCUMENT 
(SHEP (2),A(29),A(10733 
GQ TQ SKIP; 
FNDs 
(SYSIN) EDIT (SEASON, YEAR, DUMMY } 
“TCACBD ACA) eXOTZAIGACLIDS 


00 1 = 1 TO NNO 


GET FILE USYSTN) ENDITT (VCT),8£ 01),°GCT), DUMMY) 
CACLO)V,AC20)94(64),X(45) ,AL LID 

IF V(TI) = ! * THEN GU TO ASSN; 

K = 173 


END FOLLPZ 

NOLRECS = O03 

KRFAD FILE (CARDS) 

READ FILE ({CARNS) INTO (STR); 

GET STRING (STR) EDIT (VT_LNO,LINEF_NOQ, CARD_ND,CONE_NU) 
CACLODSFUB) gFCL) AC LTIIG 


IGNORE (1)3) 


“TND D = 0:3 


IMP = 23 
TAB = O03 
VT = VIT_NGS 


N = TNDEX(CODE_NO,CR); 


IF N = Q THEN GQ TOD TEST; 
SUBSTROCQNE_NOQ,1LyN~-1)3 °° 
IF LINE_ND -= L THEN GO TO FRR: 

IF CARN_NO == 1 THEN GO TO EPR; 


',VT) 


oooer1LTIC 
CQ0091720 
00001739 
00971740 
C0991 756 
0GO01T60 
OOOOLTTO 
ongg17aa 
OOD0ET90O 
00901200 
OOO0L3AI9 
0090D)1LRA20 
QN901 8230 
09001840 
002051859 
OCOO0LAGD 
OOUDDLATO 
C0Q001A80 
NOGITSIO 
OOD0LYOO 
CcOoX0L9I1N 
0090192 
90991930 
OCOI1G 4G 
Q09001950 
00901960 
90091970 
QOIOLIBU 
00901999 
00992000 
00952010 
00002029 
00902030 
099092040 
900902050 
00002760 
9009929070 
090992086 
00992090 
00002100 
OOND21L10 


~~ 00002120 


00002130 
ON002140 
00092150 


» 00002169 


00002170 


00992180 


00002196 
00002200 
00092210 
N0002220 
00002230 
009002240 
0990652250 
00992269 


SRCHS 


lf 


LOO. 


(SUSSTR& (CIDE_NO,692)640) | 
THEN Of 5 
PUT FILE CERRE) ENTT 
(SKIP (2),A025))5 
809 TO SKIPS 
END; 
NO_AUTHOR = 93 
CALL. SEPERPATE(LO,N10,1, TLE_SECT LONG) S 
Mos JHNFXC(LONG,'3 895 
LFON O THEN OM3 
NOLUAUTHOR = 


C'CUDF NO. 


ie ond 


[Ss 


NO_LAUTHAR + 15 


JF BUUNIS") 


LSUBSTRECINE_MD,6,2)>52) 


IF NO_LAUTHOR > NA THEN 6D TC NFFLUNTHS 


AUTHOP (NO_AUTHG2) = 
L_AUTHOR(RO_AUTHAR) = 
IF {N-1L} > 50 THFN GO 
LUNG = SUSSTRULONG,Nt2) 
GO TO SRCH; 
END 3 

NO_AUTHOR = NO_AUTHOR + 13 

IF NO_AUTHN > N& THEN GO TO OFF_LENTH3 

N = TNDEXILONG,CR)S 

If N = 0 THEN GO TO MISSCR3 

AUTHO? (NO_AUTHOR) = SUBSTR (LONG, lyN-1) 

1. AUTHOR (NO_LAUTHOR) = WK > 1S 

TF (M-1) > 590 THEN GO TO OFFLUNTH; 


TLELSFCT: 


RET: 


cP 


o_ 
ERIC 


LP 


_.CORP_SECT: 


“CALL SEPERATE 


ye 


GALL SUPFRATE (20 _9NT 92 eCURP_SECT,LONG) 


IDENT = SUBSTRCIDENT L+2A)5 
GQ TO RET$ 
NO_CORP_LAUTHOAR = Eee 
no 1 = 30 TO NCS 
(121.3 ¢SPON_SECTeLGNG) 5 
NO_CORP_AUTHOR = NO_CORP_AUTHUR + 15 
INDEX (LING CR) 3 
IE N = O THEN GO T9 MISSCRS 
“CONRP_AUTHOR(ND_CORPLAUTHOR) = 
L_CORP_AUTHO®(NO_CORP_AUTHOR) = N ~ 15 
IE (N-1) > 132 THEN GO TU CFFLLNTHS 


Nos 


TO 


. 
: 


. 
> 


» 
b 


IN 


No = INDEXOLING sC28d3 
TF N = O THEN GO TO MISSCP§ 
TITLE = SURSTRILINGyL»N-1)5 
L_TITLE = N — L$ 
“T= 03 
IDENT = TITLE? 
No = TNDEXCIDENT,3T13 
L o= INDEXCTIDENT,ET)3 
“Te (MSO) & {L=O) & CIn=0) THEN GO TG CORP_SECT$ 
TF (N=9) J (L=0) 
“THEN D3 
PUT FILF (ERRF) EDIT 
(*SHORT TITLE MARKS APE NOT CORRECT 
(SKEP (23 ,A046) sA0C10)93 
= “gO TO SKIP3 © 
EN) $ 
“pos T + 13 


SUBSTRELONG? LaNn lS 
1; 
OFF _UNTE!S 


COLUMENT 


SUBRSTRELONG, LeN-L)§ 


*,VvT) 


00002770 
66092785 
03002299 
00002300 
60002310 
QCON2 320 
CI992330 
00902340 
ncng? 350 
00002360 
0G002370 
00052380 
00092390 
00002400 
00002410 
G00902420 
00002430 
00092440 
009002450 
00002460 
Q0002470 
00002480 
00092499 
00002500 
09902510 
000412520 
00002530 
00002549 
90002556 
00902560 
00002570 
00002586 
00002590 
006002600 
00092610 
00002620 
00902630 
00092640 
00002659 
90092660 
00002670 
"00092680 
00992690 
00092700 
00092710 
00002720 
00002730 


» 00002740 


00902750 
00002760 
OON02T7 TO 
00002780 
00002790 
og0g2f00 
Bog0c 81 
009092820 


a - 3 , 2. OL. 


END CP_LP; 


SPON_SECT: 
NO_SPONSOR = 03 

“SP_LP: DB I = 49 TO NS; 

aa _CALL aoa (TyTs4sPRICE_SECT»LONG)3 

NO_SPONSOR=M_SPONSO? + 13 7 
N = INDEX{LOUS 9 CR) 3 
IF N = O THEN GOD TO MISSCR; 
SPMINSOR_AGUING_SPONSIR) = SURSTRILONGyLyN-1)3 


L_SPG:.SOR_AG(NO_SPONSOR) = N = 
IF {N-1) > 132 THEN GO 
FND SP_LP; 

PPICF_SFCT: 

Ot L_CONTRACT_NO,L_G2ANT_MNO,L_PA_LNO = 

CALL SEPERATE (595N501.5,8EP_RUR_ 

N = INNDEX(LOANG,TB)3 

IF N = O THEN GN TO #ISSCR; 
~TRON SL THEN GO TO CFFLUNTH; 7 

PRICE = SUBSTR(LONG,1,N—-1}3 

LLPRICE = N- 13 

TF (N-1L) > C€N50-49})%132/2) 

LONG = SUBST® (LONG NEIL) § 

No = INDEXCLONG, 7303 ; 
YF ON = GC THEN GO TO MISSCP; 
IF N = 1 THEN GO TO BRISSI3 
CONTRACTLNO = SUBSTRILGNG,1,N-1)3 
LUCUNTRACTLNG = N = 13 
TF (N-L) > (CUN50—-49)%132/3) 
LONG = SUASTR(LONG Nth) 
"N = TNDEX (LONG TS) 3 
TF N = O THEN GU TO MISSCR; 
“TF N = 1 THON GO TO MISS23; — 
~GRANT_NO = SUBSTRELONGs) LyM-1) 
L_GRANT_NO ='N - 13 


1; 
TQ GEF_UNTHS 


03 
SECT;LONG) 3 _ 


THEN G2) TO OFF. —UNTH3 


THEN GO TO OFFLLNTH: | 


000028390 
C0002840 
00002850 
00002860 
00002870 
00002880 
000028690 
00002900 
00002910 
00002920 
00002930 


00902940 


00902950 
00092960 
00002970 


~ 00002980 


00002990 


~~00003000 
(00003910 


0000302C 
000903930 
00903949 
00093050 


™~ 00093960 


00093979 
00093080 
00003090 
00093100 
000903110 


~"90093120 


00003130 


~ 00003140 


00003150 


~"00003160 


IF (N-1) > €€N50-49)4%132/3) THEN GO TO OFF_LENTHS 00093170 
“MYTSS23T “LONG = SUBSTRILUNG NEL) F OE et ee tr ye Te, ee ™ 00003180 
N = INDEX(LONG,CA)5 00003190 
come Te ON =) @ THEN GO TO MISSCR3 7 a eee "900003200 
IF N = 1 THEN GO TO REP_RUR_SECT3 - 00693710 

a “PA_NO = ee 1): 7 ee —.: “900003220 
aoe PALNO = N ~ 13 00003230 

~~ = (N-T) 345727 THEN: GO TO OFFIUNTI 00003240 
REP_BUR_ SECTS 90993250 
~ LO REPORT_NO,L_SUREAULNO = Qf0 0 eee ~ 00093260 
CALL SEPERATE (60+NGOs6rAVL_ SECTs LONG IS 00093270 
mmm" Ss CENDEXLEDNG,TB)3 * 7 oS ““00003280 
IF N = O THEN GQ TO MISSCR; 000032790 

ener mene REE PEE NT GOT TO RU Rh nnn EO O0002 300 
RECORT_NG = SUBSTR(LONGs1,N~-1L)3 _ 00003310 

women LE REPORT_LNO = N= 13 SOE EEE EE 0.0003320 
IF (N-1L) > (€N60-59)*132/2) TREN GO TO DFF_LLNTHS 00093330 

—pURYT OU LONG = SUBSTRILONG NEL © To meee emer eee eee eee" "00003340 
N = INDEX (LONG,CR)3 00003350 
POET RT ETAT TREND GOD TO MT SS CRG ™===—9.9003360 
IF N = L THEN GO TO AVL_SECT? 90003370 

— =" RUREAU NO = SUBSTRILGNGr lyN-l) 3g 0 7 . ~ 00003380 


L_RUPEAU_NO = N - 13 00903390 

TF €N-1) > (€0860-59)%132/2) THFN GO TO OFF_LNTH; oO ~ 90003400 

— AVL_SECT? 7 00903410 

L_AVAILARILITY = 03 ee OT _ ~~ 99003420 

CALL SEPFRATE (70 N7Ue 7s JSC_SECT LONG) 3 00093430 

pe eeereene™ STRAEMETLONGsCRIS.  &  &»©© CCU EESTVGN IS 440 

IF N = 0 THEN GO TG MISSCR3 000934590 

AVALTLABILITY = SURSTPCLONGy1LeN-L)3 , , 00903460 

L_AVAILARILITY = N - 13 : 009003470 

~ JC_SEC?: , 7 “a , 06003430 

LL JOUR_LCTT = 03 00093490 

omni ” CEDERATE (80—N8093,PUB_SECT;LONG)3 St—~CSS. ss» ONHH'3S0O 

N = ITNDEX(LUNG,CR) 5 00003510 

IF N = O THEN GA TM MISSCBRS Sd _ " 96003620 

JOUR_CIT = SUBSTR(LONG,1LyN-1)3 00003530 

L_JOUR_CIT = N - 13 oe ee ; 00003540 

PUB_SECT: 00003550 

women seme PURLDATE, L_LPAGE yL_DFSC_NOTE SQ 90003560 

CALL SEPERATF (90,N90,9,DESC_SECTsLONG) 5 06963570 

N = LNNEX{LONG,TB)3 00003580 

1F N = O THEN GO TO MISSCR3 00093590 

IF N = 1 THEN 003 ; _ a _ “7 =" a9003600 

oats eetet eee , PUBLDATF = * eee! . 00013610 

ee PUR DATE = 2%; °C CO™OC*~C~C oo eee 00003620 

GO TO GP; 00003630 

END; , 00003540 

: — PUS_DATE = SUBSTRELONG,IGNWLIS 2. 00003650 

L_PUB_LMATE = N ~- 13 , ee ess" 900003660 

LF Of N-1) 45 7 THEN GG TO OFF__LUNTHS 00003679 

~“EpS 7 TU CLANG = SUBSTACLONG SN + 173, IE 0101 01010 11:10) 

N= ENDEX(LONG,TB)3 7 00093690 

IF N = O THEN GO TO MISSCR3 eee ~ =" 00003700 

7 TF ON = 1 THEN DOS a 7 — 00003710 

PAGE = ' a — oe 000023720 

are ____LUPAGE = 33 00093730 

- a ae ee ey ies CO ee OOO TaD 

nn END; 00903750 

PAGE = SUBSTRILONG)1LN-1)3 Weems se meme eee eee "00003760 

oo LLPAGE = N— 13 a ; 00003770 

TF (N-1) > 14 THEN GO TO OFF_LLNTHG ees EE 00003780 

nS: LONG = SUBSTRILONG,N+1)3 00003790 

Te AE TI NDEXILING CR) G tonne TE EEL O00038900 

LF N= 0 THEN GO TO MISSCR3 00003810 

7 “TRONS 2 THEN GO TO DESC_SECT;  ———— 06793820 

— DESC_LNOTE=SUBSTRILONG, by N-1)S a 00003830 

“LUMESC_NOTE = N- 13 | — ae Teese ee ees" 00003840 

__ DESC SECT? ee een eee ole ; 00003640 
“TEUPESCRIP = 03 Sei teeen Re — ===" 9903860 

IND = 1050 are 00003870 

CALL SEPERATE (100,N100,10,10_SFCT,DESCRIP); ~~. 00003880 

—. .  NGLDES = 03 00003890 

“RET2:. — N= INDEXUDESCRIP,CR)$; mI 00003900 

1F N = O THEN GO TO MISSCR; 00093910 

—— —" BESCRTP S°SUBSTRIDESCRIP;1yN-1)3  OCO—C—CSCST—TNN 09903920 

; L_DESCRIP = N -— 13 00003930 

~~ ‘TE NO_DES = 1 THEN GO To SEARCHS 7 UU 00003940 


& 103. ce eee I ee 

ID_SECT: 00003950 

L_INENT = O3 00003969 

ING = 113 ; — 00903970 

“TMP = O05 : “ : 000039890 

CALL SEPERATE. (200yN2009 LL ySFEARCH LONG) § ___.. 90003990 

mae TMP = Lg Rice ey mah genes eres eer mee Sagemeyp 00004000 

RETRN: IF LONG = *" THEN GO TC SEARCH; 09004010 

N = ENDEX(LONG,C2)5 00004020 

If N = oO THEN GG TO MISSCRS — 00004930 

IDENT = SU&ASTRILONG: 1LyN-1)3 00004040 

— LLIDENT = N - 13 eee 80004950 

mmm" G0 TH SEARCH eee eam caer y gts eg ey nee sw One 00004060 

ERR: no; 00004976 

ie PUT FILE ¢FRRE) EDIT Go004080 

CUATSMATCHED C*PO NUMBER TN OOLUMERT '9VT) 00004090 

CSKIP(2),A0T35) 2ALIOO:, 09027169 

GO TQ SKIP; _ 00004110 

Sh EReSs CCC a ee eee ee et Oa ed 

MISSCR: C03 00004130 

PUT FILE (FREE) EDIT 00004140 

(' @ESSING END OF LINE OR TAB CHARACTER IN t,vT) 00004150 

(SKIP 02),A037) ,ACLOIIS 00004160 

OTF Ive = 2 THEN SO TE SKIP; _ 000041790 

cree" Te pepo. THEM READ FILE (CARDS) IGNORE (1) 3— 7 000904189 

GO TON START; GG004190 

FND3 00004200 

OFF_LUNTH: DOs 00004210 

_ PUT FILE (ERRED ENIT ° 00004220 

(*LENGTH OF VARTABLE OF DIMENSTON Is OFF IN ',VT) ___.. 00004230 

Se ee plo), AtaersAt10))3 See ere (00024240 

; G0 TO SKIPS aad ie ; _ 00004250 

“ENDS _— LEE 00004260 

ERROR: TF SUBSTROVT_NOs1,1) 7= BO THEN GO TO BADs _ _ 90004270 

Im (IND = LO) & (VT_LNO += VT) THEN 995 ° 00004280 

IMP = 03 00004290 

Aiea EDEN 2 07 OO " 900004300 

ae NO_DES = L3 _, ©0004310 

a _ momo rrr se sem eee eee GO TO RET23 00004320 

END; __.., 00604330 

ee EMER DS TEP & CVTLNO == VT) “THEN GO TO RETRNS ~ oo 00004340 

BAD: PUT FILF (ERRE) SKIP(2)3 _ 000904350 

SO BUT BILE CERRED EDIT eT en "90004360 

C'*DUCUMENT NO. DOFS NOT MATCH ON ONE CARD IN tyVT} 00004370 

amma 2.00.) Fe @ 0) 3 ae cana aca ae oa 00004380 

“ GO TO SKIP3 __. 00004390 

“NO_INF? PUT “FILE UERRE) “Ott Oe ee = 5 “00004400 

CtEXPECTEND INFORMATION MISSING FROM _DOCUMENT ‘,vT) 00004410 

ee —“COKLTP UZ) AUB VAAL LORY eee ™" 909004425 

_ 00004430 

Go Se ee OO ON EO 

7* THESE STATEMENTS SKIP _TO THE _BEGINNING OF THE _ 00094450 

pe NEXT DOCUMENT @ eS 900004460 

00004470 

nn ERT ps READ FILE C ECARDSY INTO USTR) §$ a ae ~~" 90004480 

GET STRING (STR) EDIT (BEG) CACLIDS _. 90004490 

{ea SSR ee BEG = BO THEN GO TS STARTS ee ae '°99004500 

<) 

ERIC wae 
ENC 13d 


GO TO SKITP3 


NO 7 = 170 K3 
If vil) = VI 


SEARCH: 
DO; 


THEN a 
FO_NO 


END SEARCH; 
PUT FILE (ERRE) 
(AL31),A0C10093 
IMP=1 THEN READ FILE 
GO 2 START; 
PGP? b= NULAUTHOR + NG_LCERP_AUTHER 
PUT STRING (CAT) EDIT (VTeCODE_NQ, ED_MO, SEASONS YFAR,PAGE_ 
aa AUTHOR(E) 99 T = 1 TQ NO_AUTHOR) TITLE, (CORP_AUTHOR(T) 00 I 
— ~~) Ta NOL COZP_AUTHOP ),CSPCNSOR_AGOT) 909 F = 2 TG NO_LSPONSOR), 
PRICFyCONTRACT_NO,GRANT_NO,PA_NO,REPORT_NO,BURFAULND, 
AVATLAPILITY, JOUR_CIT» C§UB_DATE »PAGF eA DESC_NOTEsPESCREP, IDENT, 
SEP ;NO_AUTHOR,(L_AUTHOZCE) 89 T=1 TO NO_LAUTHJ&),L_TITLE, 
NC_CORP_AUTHGSR, (L_CORP_AUTHOR( 1} DO T=1 TO NO_CORP_AUTHOR), 
NO_SPANSBR%s (L_SPONSOR_AG(T) OO T=l TO NO_LSPONSOP1,L_PRICE, 
L_LCONTRACT_N,L_GRANT_NO,L_PA_NO,L_REPORT_NOG L_SUREAU_NO, 
L_AVATLASILITY,L_JOUP_CIT,L_PUS_DATE,L_PAGE + L_GESC_LNOTE, 
L_DESCRIP,L_IDENT) 
ee 
{NO_CORP_AUTHUR) A,y(NO_SPONSOR) 
PAC LUGRANTLNOG) yACL PANO) pACL_REPGRT_NO) pACL_BUREAULNO)s 
ACL “AVATLASILITY) , O(L_ JOUR_CIT), ina s ioc Vs 
_ ACL_PUB_DATF) sA(L_PAGE) AL L_DFSC_NOTE) ,A(L_DESCRIP),s 
A(L_ IDENT) ,AC2),(L) F(4))3 ee 
WRITE FILE (MASTER) FROM {CAT)3 
PUT FILE (SYSPRINT) SKIP(2)3 
PUT FILE (SYSPRENT) EDIT (CAT) 
NO_LRECS = NO_RECS # Py 77 UU 
TF IMP=1 THEN RFAD FILE (CARDS) 
“GO TO START3 
_ SEPERATE: PROCENURE 
DECLARE 


EDIT CONG MATCH MADE ON EO NUMBER FOR tevt) 


IF (CAPPS) IGNORE (1)3 
+ NOLSPANSOR + 173 
NOQe ( 


AsACL_TITLF), 
AvACL_ PRICE) sA( L_CONTRACT_ 


AAILENGTHCCATIO DG 


JOMORE UIT 4. ncn. 


(KyLy TND,LRL_NXTsBIG) 3 | 


“FIXED BINARY (31,0) ¢— 


“FIXED BINARY (31,0), _ 


FIXED BINARY (31,0), 


“—“FYXED BUNARY | 


(31,0), oe ee 


CHARACTER (660) VARYING, 


“CITTLE 
_ CHARACTER (66) 9 0 


FIXED GINARY. 
~~ CBLCLNXT 
“LABEL (CORP_SECT,SPUN_SECT yPRICE_SECT,REP_BUR_SECT, 


AVL_SECT, JC_SECT»PUB_SECT,DESC_SECT,I9_SECT, 


EVO PW ies 


ERIC 134 


00004510 
00094520 
00994530 
00094546 
00904550 


00904569 


09004570 
00004580 
00004590 
00094500 
00004610 
00904820 
00094630 
00994640 
00004650 
00994650 


=009094670 
O0694680 


00094690 
00994700 
00004710 
00094720 
69094739 
00004740 
00904750 
00994760 
00004 Fr7e 


NO}00904780 


00004790 
00004800 
00004810 
0029048270 
00004830 
OO0004R40 
00004850 
00004360 
00004870 


“00004880 


00004890 
00004900 
60054910 


“00004929 


00004930 


(00904940 


00004959 


00094960 


00094970 


““@0004980 


000904990 


~-00095000 


oo00Oo5N1N 


“00005020 


00005039 


“90005040 


0c005050 
06005060 


Loop: 


LN_UCKS 


CN_CK? 


NOLPD: 


o.. 
ERIC 


TF LINELNO az I 


“TAR = 03 


TF NOLPECS a= K THEN PUT FILE 


105. 


SEARCH, TLE_SECT)» 
RIG = f"3 
pm T= kK TOL? 
TF TAB = 1 THEN Gh TC LNLCK: 
READ FILF (CARDS) INTO (STR2)3 
GFT STRING (STR) ERET (VT_LNOYLINE_NGyCARD_LNG) 
CACLOD ECB) F(LIDS 
IF VT_ND a= vT THEN GO TO ERRCR: 
IF LINFLNS = ¥ THEN GO TU CD_Ck; 


TF CINDE2Z) ECIND=9) 7 CIN =19) | CEND=5) 


THEN DOS; 


IF Y = K THEN GO Th NO_LINEF; 


TAR = 1 

RETURNS 

END 3 
ELSE DQ; 

TAB = 1 


IF 1 = K THEN GU TO LAL_NXT;3 


RETUPN; 


END $ 
A= 2 8s 
JF J = 1 THEN GO TO HE_RN; 
READ FILE (CARDS) INTO (STR)3 
GET STPING (STRY FDET (VT_LNO,LINE_ OG, CARD_ND) 
CAC1O) FEC 3), FOL) 93 


IF VTILNT w= VT THEN GO TS ERREGRS 


THEN OF 


TAB = 15 
RETURN S$ 
ENN; 


IF CARN_LNG a= JY THEN GO TO ERR; 
GET STRING (STR) FOTT CLITTLE) 
BIG = BIG I{ LITTLE 

ENN CO_CK3 


(¥014)3A066)) 5 


END LOAP ¢ 

RETURNS 

END SEPFRATES 

PUT DATA (NO_LRECS)3 

(FRRE} FOOT 

CtNOT ALL DOCUMENTS WORE PROCESSED, THERE SHOULD BRE 
(SKIP (2),A050),F 0405 

CLOSE FILE (AASTFRI, FILE CERRE)D 3 


_CLASE FILF (CARNS33 
“END WORK 3 | 
JENO EDITS _ 


§,K) 


Oo0005oOTO 
Cc095908C 
oco05sos0 
09905100 
OGIANSLLC 
OCI8NSL2A0 
00905136 
OS005149 
000051590 


'Q00I05L68 


NOO9OS5SL70 
00005180 
00995190 
00005200 
00905210 
060995220 
009095230 
00995240 
00095275C 
00005760 
00095770 
00995780 
00995290 
00905300 
OGNI25310 
00095320 
06005339 
00095340 
00995359 
00095360 
00095370 
00995389 
00008 390 
N0GuL400 
00905410 
00005420 
60005439 
00005440 
009954590 
00005460 
00005470 


-OCN05484 


00095490 
00095500 
00095510 
0000532C 


00095530 


106. 


SUBJECT QUARTERLY 


13b 


[RE ects teste chet ie ie ae eis at aig soe AE >t soe Bests Mec ois Be ae Be ME AE ge Se EE EE 2 OE ste ve ole ee Hee deck ok dak RR a A /OOGOOO 10 

/* #F50000020 

os QUARTERLY su 8 J) FECT INME X #/00000N3G6 

fe = z/ognangnen 
meena pg oe etme tes es ; a cee meme AF QOONONNED 
yx PURPOSE: THIS PROGRAM PREDUCES A OUARTERLY SHRBJECT INDEX */OONANNEN 

/%* PRINTOUT FOS SCTH ATY ANN ARM. THE MASTER NATA SET s75N0GCONTA 

/* THAT HAS BREEN GFENERATENM FOR THE QUARTER TS THE NATN #/0000n0#20 

7 INPUT FOR THE PROGRAM. THE NECESSARY DATA 1S TAKEN #z/OCONNNEO 

*% FROM MASTES® AND PUT OM A TEMPORARY MISK FILS. WF THEN */090009190 
mma mm a CALL FOR THE SHOT /HERGE, WHICH SPRTS THE RECORDS rn #/00099110 
/* THE WISK AND PUTS THE SORTED RECORDS ON ANOTHER DISK #/Q000N00120 

/ FILF, THE SORTED NATA TS PRINTED UNDER & FORHAT WHICH */00009130 

/* THE VOCATIONAL CENTER SPECIFIES AND THIS IS THE INDEX */GN000149 

ae PRINTONT FOR THF PUBLICATION. NOM, EACH RECIRD ON THE */0G009LEO 

3s SCORTEN DISK FILF TS SHARTENED AND SAVED ON MAGNETIC x/O9D0001460 

= pape ee TAPE FOR THE ANNUAL IMOEX. Ce ee ee meee Re LOOOHNOI TA 

* #/00000180 

- 7% PDREFINITION OF VARTABLES: */000N0190 

se Le BT -— CHARACTFR NENATING THE REGINNING OF A SHORT TITLE */00000200 

* : SFGMENT (<). */00000216 

/% 2. COL —~ THE NUMBER OF COLUMNS OF QUTPUT IN THE INDEX, *x/00000220 
wee err oe PRINTOUT. : : “ en ee ~# #000007 39 

f% 3. DESC --— DESCRIPTOR STRING FROM THE MASTFR TAPE. */GO000240 

(fn 4. DUMMY -- STRING USEN FOR INPUTING AND MUTPUTING TAPE AND */00000250 

/% NISk RECORNAS. *x/Q0NN0NN260 

oo pe 5. EDLNO -- FN AR ACCESSION MUMRER ‘ */O0006270 

/* 6. FT —~- CHARACTER DENOTING THE ENP QF A SHORT TITLE SEGMENT. #/000N0780 

oe ates: ef Hes SS teaeme mnee ‘-{> ) 4 @ * x 4 = aid meee ae ite #IDONNID 2 AN 
/* 7. HEARN --— A STRING WHICH HEADS FVERY PAGE CE THE INDEX. IT * JONNN0 360 

fr 2 + GIVES AIM OR ARM, THE SEASON, AND THE YFAR. (FOR */00090210 

s* EXAMPLE, AIM/FALL 693 */N00NNA20 

a Ae 8. IDENT -— INSNTIFIFR STRING FROM THE MASTER TAPFo x £SONN00H230 
[8 9. IHESRTA -- THE PL/I CALL TO SORT/MERGE. # JOONO240 
apo LO CL ENTH AN AR®AY USED FOR STORTHG tENGYTHS OF- STRINGS. *&/N0N00N350 
/* lle LH -- LENGTH NF ~HEAN- (NM. Te x /OO0003E0 

an as 12. LINEHL ~~ THE LINE NUMBER IN THE INDEX PRINTOUT ON WHICH *xs/O000003TO 

/* -HEAD- AND THE PAGE NUMBER APPEAR ON THE TITLE %/GONOORAN 

pia See PAGF. *x7aqnqganzen 
y* 134 LINFH2 -- SAMF AS LINEHL EXCEPT IT'S FOR ALL StICCEEDING */CO0NN400 

aise en ec eee PAGES NF THE INDEX © sca ase - ne sees #700000419 

/* 14. LINEP1 -- THF LINE NUMBER IN THE INDEX PRINTOUT ON WHICH #/O0000N420 

any Ae es : THE WORD 'PAGE' APPEARS ABOVE EVERY COLUMN. THIS /00000430 

f% IS FOR THE TITLE PAGE ONLY. */00NN0440 

oe JRE, 15. LINEP2 -- SAME AS LINEP1 EXCEPT IT*S Foe ALL SUCCEEDING */00000459 

fe : PAGES OF THE INDEX. */Q0000460 

af OL te HE ENET cen THE LINE NUMBER-IN THE -INDEX PRINOUT- ON WHICH: THE: */00000470° 
/% TITLE APPEARS, WE DO NOT PUT A TITLE ON THE TITLE#/00N0045 
ay A a PAGE. Bh *%/00000490 

s% 17. LTH -- LENGTH OF THE TITLE OF THE INDEX. */G0000500 
Seay Aaa 18. L_NESC -~ LFNGTH OF THE NESCRIPTOR STRING. oe 43 */00000510 

f* 19. L_IDENT ~~ LENGTH OF THE IDENTIFIER STRING. */90000520 


7 


Leen pee BOS LITITL Em “LENGTH OF THE TITLE GP: THE DOCUMENTS: 


** 21-2 MARG -- LEFT-HAMD MARGIN MF THE PAGE= 
le ype 8925 MASTER —- NAME OF THE MASTER TAPES 7 T 
re 53. MG <> ARRAY OF MARGINS FOR THE COLUMNS IN THE INDEX 
ae ees PRINTOUT. em 
sx 24. OUT -- ARRAY GF STARRED IDENTIFIERS AND DESCRIPTORS FOR A 
asia HMCUMNENTS eer aE ere eee 
1% 25. PAGE -- PAGE NUMBER OF THE INDEX PRINTOUT. 
amen Je + -26e"PAGE_NO ——- RESUME PAGE FROM MASTER. 
[* 27. PUBLDATE -— 


PUBLICATION DATE FROM MASTER. 


o.. 
ERIC 


“#7 90000530- 


2/00000540 


“#&/OO00N0550 


* /00000560 
*/0CN00870 
*/Q0N0005R0 


- #/00000590 


*x/N0000600 
*/000006410 
*/00000620 


108. 


len pe 28. OUE -- TELLS US WHETHER THE INDEX TITLE PAGE IS ON THE “2700000630 
a LEFT OR RIGHT SIDE OF THE PUBLICATION. */00000640 
~ eee: 29, RETCOF —— CONF RETURNED BY THE SORT PROGRAM, = !0! MEANS */00000650 
i* SORT HENT WELL: ©16* MEANS SMART HAN TROUBLE. */00000666 
mune! lx 30 r-RELELN-= = “NESCRIAES -THE-RECORDS BEING “SORTED FORTHE SORT~ “#7 00000670 — 
: 2% PROGRAM, x /O00000680 
wees Pe ~ BL. SEIELD -- MFSCRIBES THE PART(S) OF THE R=CORD TO BE SORTED */00000690 
* FOR THE SORT PROGRAM. = f/OLO000TNN 
wee ge B32, ° SIZE -- THE MUMBER OF LIMES THAT THE INDEX PRINTOUT MAY * /N0000710 
8 HAVE PER PAGE. IT COUNTS FROM LINE 1 AND STOPS AT */00000720 
pg THE LAST “ALLOWABLE “LINE™ON “NHICH INDEX” PRINTOUT “TS ~*/00000 730°" 
fe : ALLOWED. */00000740 
ea! -- 33. SORTIN -- DFEINES THE DISK SUBSET FILE WITH THE UNSORTED */00000C750 
f* RECORDS. */O00000740 
ee Pees BG, SORTOUT --— DEFINES THE DISK SUBSET FILE WITH THE SORTED */O000N0770 
1 RECORDS. */OO0O00QTRA 
te 355 S PACE THE “NUMBER OF ~ SP AC ES--BE THE EN-THE™ VT--AND--ED-NUMRER~ #700600 790 ~ 
/* IN THE INDEX PRINTOUT. *x/O0000CKRON 
cere ye oot BG. SUML -— THE NUMBER OF BYTES ON A MASTER RECORD RETHEEN THE */0N00002810 
/* RESIIME PAGE AND THE TITLE. THIS IS REALLY THE *x/O00G00820 
masse: Pages he SUM OF THE NAMES OF THE PERSONAL AUTHORS IF THERE — */00000830 
/* ARE ANY. */ONDNIDE4N 
mney di —3 "Fe -SUM2—-) =-THE- NUMBER? OF RYTES-ON -A-MASTER- RECORD -RETWEEN- THE */00000850 - 
7% TITLE AND THE PUBLICATION DATE. ax /OQ000260 
weet Pie = BR, SUMZ -— THE NUMBER OF BYTES ON A MASTER RECORD RETWEEN THE */00N00879 
Le, PUBLICATION DATE AND THE DESCRIPTORS. THIS IS */OQOD00RE0 
ae (aaa Ca a ~ REALLY THE SUM Of THE LENGTH OF THE DESCRIPTIVE *%/00000890 
% NOTE AND THE LENGTH OF THE PAGF VARTARBLE. */N0N000900 
8 OS DH THE RIGHTAHATID MARGIN OF: THE LNDEX- PRINTOUT: PAGES 77 ®/NONNNE1O 
1 406 TITL -~ THE TITLE OF THE INDEX, 'SUBJECT AND IDENTIFIER */OO0NNNG20 
eee PR ct INGEX'. */00000830 
1% 416 TITLE -- TITLE QF A DOCUMENT FROM THE MASTER RECORD. */00000940 
nee 42.6 TLE -- ARRAY OF SHORT TITLE SEGMENTS. ; ge ~#SNO000C5O 
L¥ 430 VT_NO -- BOCURENT NUMBER FROM MASTER TAPE. */O0GAQ09460 
a PPT DTH -—-WIATHO-RE THE COLUMNS -IN THE -INDEX “PRINTOUT ao 7 7 200009 70 © 
/* 45. BLK -- NUMRER OF PIECES DF WIDTH -WIDTH- THAT A KEYWORD *%/SOONNNE2O 
cemrecmapsie cases tt a | FSG OR ROKEN UP INTO TO FIT IN A COLUMN IN THE ENDEX *x/O0N000eETN 
7% : PRINTOUT. . */00001900 
wept ~ 466° BLKT --— NUMRER OF PIECES OF WIDTH -“WIDTH-2- THAT A TITLF */00001010 
fe: ~ QF A POCUMENT IS BROKEN UP INTG TO F171 IN A COLUMN */00001020 
ey TT EE TID EX “PRINTOUT © aeacnaet ae F OOOO TA = 
/* 47-6 COL# -- IS A THO DIMENSTONAL ARRAY THAT REPRESENTS AN */00001040 
a? (aa: eee “FNDEX PRINTOUT PAGE. ITS FIRST DIMENSION GIVES THE*/00001050 
/® COLUMN NUMBER OF SOME COLUMN ON A PAGE, AND ITS */OO00N0LN60N 
semen ities ween at ames +: SECOND DIMENSION IS A LINE NUMBER IN THE COLUMN ~ */O00001N70" 
/* ‘ REPRESENTED 8Y THE FIRST DIMENSTON. TI PUT A PAGE */000010280 
fi OF -THE-INDEX- INTO-THIS~AR2RAY AND-THEN~ PRINF—THE —— *FOH0001090-- 
1% ; - ARRAY. THIS IS THE ONLY WAY TO PRINT A WHOLE PAGE */000011900 
mete) Bigime eeepc neeene ten ome em em AT! ONCE WHEN -DATA- 13: ASSIGNED-TA-A PAGE-IN-VERTICAL*/00001110 
. Fe : COLUMNS AMD THE COMPUTER PRINTER PRINTS */OO0O0L1L20 
mee ef Ea eee teers oo HOR TZONTALLY ONL Yeo tetris Lone eee cc cee = -*/00001130 
. / 48. IMAX -- IS THE NUMBER OF COLUMNS PLUS ONE. : */00001140 
DIP INDICATES -HHET HER--A~NEW-KE YWORD—-1S—8 EING-SFARTED~ *fO900011-50 —- 
. 1% IN THE INCEX PRINTOUT. */00001160 
ey te = B5Oe IND -- INDICATES WHAT - - COLUMN: QF -A--PAGS- TS BEING: FILLED. */00001170 
; /% 51. KNT -- IS A CQUNT OF THE NUMBER OF LINES IN A BLOCK OF DATA*/000011B80 
2 ae ee eee ce cee oo BY BLACK IT MEAN: VT NUMBER, ED-NUMBER- AND RESUME 3k /00001190- 
; 7 PAGE ON ONE LINE AND TITLE BROKEN UP INTO —-BLKT- */00001200 
ENE Sg AL SD P-HE-ARE-LTSTING TH E-F1 RST DOCUMENT ——*7°0000 121 0 — 
; 7% FOR A KEYWORD, WE COUNT THE KEYWORO BROKEN UP INTQ */00001226 
See ae pone eee BLK: LIMES» PLUS ONE: FOR THE BLANK: LINE BETWEEN ~-~~*/000012 30 ~ 
; L KEYWORD LISTINGS. 


*/00001240 


Vi 52. LN -- IS THE LAST LINE IN A PARTICULAR COLUMN THAT HAS */00001250 

* BFEN FILLEN WITH INDEX ORINTOUT. **/00901260 

J 53. NN -- IS A SUARSCRIPT USED FOR THE SECOND GINENSTON OF =*/ANN01LATO 

* —COL#- */O0001280 

wae ype 54, NUTS <= NAME OF OUTPUT FILE WHERE THE INDEX IS PRINTED. */QNNNL 299 
* 55. PC —- THF PIECES OF WIRTH -WIDTH- INTO WHICH A KEYWORD IS) */00001300 

si BROKEM UP. */09001310 

rs 56. PREV -—- KFFPS THE NAME OF THE CURRENT KEYIORD BEING LISTED */00001326 

* ‘IN THE INDEX. */00001330 

* 57. PUB -- THF YFAR SECTION OF THE PUBLICATION DATF. */00001240 

coy gee 5 Be SKPH -- GIVES THF MARGIN FOR VARIABLE -HEAD- SO IT KNOW */00001350 
/% WHERE TO POSITION IT. #/00001360 

* 59. SKPP -—~ GIVFS THE MARGIN FOR THE PAGE NUMBER ON THE INDEX */00001370 

* PRINTQUT © */000013#0 

/* 60. SUB —= NAME MF THE MAGNETIC TAPE DATA SFT ON WHICH THE */00001390 

* SHORTENED RECORDS FOR THE ANNUAL INDEX ARE SAVFN. = */00001400 

a fe be TLE <- THE PIECES OF WIDTH -WINTH-2- INTO WHICH A TITLE 1S -*/00001410° 
2 BROKEN UP. */00001420 

* */00001430 

y* INPUT TO THE PROGRAM: */00001440 

* -MASTER-, THE MASTER TAPE OATA SET */00001450 

yx THE MASTER TAPF DATA SFT GENERATED FOR THF QUARTER IS ONE */00001460 
ype INPUT TO THE PROGRAM. IT IS REFERENCED 8Y DD CARD IN-THE = = */090001470 
y JCL. */00001480 

fx =SYSIN=, INPUT MM CARDS */00001490 

* WE NEED TO INPUT TO THF PROGRAM THE OUTPUT SPECIFICATIONS */00001500 

Js FOR THE INDEX PRINTOUTS THE FOLLOWING LIST TELLS WHAT DATA = */00001510 

ys IS READ IN. THE DATA IS ONE CONTINUGUS STREAM AND TAKES AS */00001520 

ane Pee MANY CARDS AS MECESSARY. /00001530 
* FIELD 1 IS THE PAGE NUMBER FOR THE FIRST PAGE OF THE INDEX = *%*/00001546 

iE: PRINTOUT. F(4,0) FORMAT. */00001550 

/% FIF'D 2 IS THE SIZE OF THE PRINTOUT PAGE. F(4:0) FORMAT. */00001560 

yx FIELO 3 IS THS COLUMN WIDTH. F(4s0) FORMAT. */OC9OLSTO 

s% FIELD 4 1S THE LEFT-HAND MARGIN OF THE PAGE. F(4,0) FORMAT. */00001580 

epee FIELD 5 “IS THE RIGHT-HAND MARGIN OF: THE~ PAGE. Fl4,0)0——™ m7" */00001590 
r TTELD 6 IS THE LINE ON THE TITLE PAGE WHERE THE PAGE NUMBER = */00001600 

- AND HEADING BELONG, F(4,0) */00091610 

TELD 7 IS THE LINE ON THE TITLE PAGE WHERE THE WORD *PAGE't */00001620 

IS WRITTEN ABMVF SACH COLUMN. F(4s0) */0000163N 

we FIELD 8 IS THE LINE OW aol SUCCEEDING PAGFS WHERE THE PAGE = */000014640 

ey ee NUMBER AND HEADING BELONG. F(4,0) 9° > a+ = 700001650 
rs FIELD 9 IS THE LINE ON ALL SUCCEEDING PAGES WHERF THE TITLE */00001660 

/% SHOULD APPEAR. F(420) -*/00001679 

iE: FIELD 10 1S THE LINE MN ALL SUCCEEDING PAGES WHERE THE WORD */00001689 

x “© PAGE' IS WRITTEN ABOVE EACH COLUMN. F(4,0) */000014620 

i FIELD 11 IS SPACE BETWEEN THE VT AND ED NUMRER IN THE */00001700 

wae Beer - PRINTOUT. ~~ Fl4:0) > woven me 700001710 
y* “FIFLD 12 IS THE NUMBER OF COLUMNS IN THE INDEX PRINTOUT. */00001720 

Rearaiee gtetes ents Plies) HR Pe ee ee */00001730 
/* FIELD 13 IS THE MARGIN FOR EACH COLUNN MEASURED FROM COLUMN %*/00001740 

~ xe ONE. FORMAT IS THE NUMBER OF COLUMNS TIMES F(4s0). */00001750 

; /* FIELN 14 IS THE LENGTH OF THE INDEX TITLE. F(40) */0000176C 
2 pate ET ELD - 15 1S THE--IMMEX:- TITLE. FORMAT“IS ACFIELD 14'S-NOe)e~—— -*700001 F70™ 
7% FIFLN 16 I& THE LENGTH OF THE HEADING. F(4s0) */00001720 

[3 -- FIELD 17 IS THE HEADING (EX? FALL/ARM 69). FORMAT IS */00061790 

7% ACFIELM 16'S NOe). */0000 1200 

1% -FIELD 18 IS AN *L' GR tR*. 'L* SAYS THAT THE FIRST PAGE OF = */00001810 
; rs THE INDEX WILL BE ON THE LEFT SIDE OF THE PUBLICATION. */00001820 
afte ee ER E-ENMICATES-THE RIGHT SIDEe- FORMAT ACL en (om #00001 B30: ~ 

1% */00001840 

se -SPECTAL NOTE? ee Gi ee Ne */00001850 

y* THE OUTPUT FILE SHOULD RE THE PRINTER UNTIL THE VOCATIONAL 


o.. 
ERIC 


109. 


139 


*/00001860 


i110. 
IND=X PRINTOUT. 


* - CENTER SEFS AND APPROVES THE WE DEFINE IT AS */00001870 
fx T/7/QUTS DN SYSMUT=A ,NCR=(RECFM=FyLRECL=1335FLKSI7£=133)"%. THEN */N0001fS0 
* - OUTS SHMULD RE DEFIKEN AS A TAPE, THE QUTOI'T TAPE [IS THEN */O0NN1 296 
* LISTED O*% THF 240/50 FOR AN UPPER AND LOWER CASE PRINTOUT. THE */o0an1ena 
maa SCE FOR THIS 50 RUA TS EM THE MISCELLANEQUS PROGRAM SECTION, - --*/00001010 
* */00001929 
Joo 2 oR ote 2s Ae aia ae ais oe ae ate he he af ates ke af ake abe fe aye a ae ole ale ate oe op Se ae fe Se ae ale Ar a ae Se oR oie ae he ae ake ok aye aft ak aie ate ake Seok oko Seok ok ak kas OO001LE30 
00001¢40 
SSH navn ete: 00001950 
SUBIND: PROCEDURE OPTIONS (MAIN); 00001°60 
Ear ES EO DARE: eres oe ‘ Disease : nts semis Gees Fee OO PATH 
BT CHARACTER (1) INITIAL ( °K"), 00001980 
COL 00001990 
FIXED RINARY (31,0), oo0002NN00 
DESC 00002010 
CHARACTER (660) VARYING, 00002020 
-- MEMES ECT ~ 0m en ee ee nee ~~ - wei rmeemens = -00002030 
ENTRY, 00002040 
mo DUMMY CHARACTER (3736) VARYING, 00002050 
ED_NO CHARACTER (20), o0002n«En 
ET CHARACTER (1) INITIAL ('>"), 00002070 
HEAD CHARACTFR (12) VARYING, 00002080 
ne ee T eee ee ene = iste eeiaese sae - oe oie oR nae eae Sw aes ein deen re ete ce cee eee ee en ree ee eee oe 00002090 
FIXED BINARY. (31:0), 00002100 
# . IDENT CHARACTER (396) VARYING, 00002110 
THESRTA 00002120 
HS at Bb aed soo ENTRY (CHARACTER (48) »CHARACTER(34),FIXED BINARY(31,0), 00002130 
, FIXEN BINARY (1590))5 00002140 
SSSe arts SSS ee me we ee wee ~- rs _—- oo ee oe 00002150 
FIXED BINARY (31,0), 00902160 
L 00002170 
FIXED RINARY (3150)¢ o000n2180 
LENTH(10) FIXEN BINARY (31,0), 00002190 
LH FIXED BINARY (31,0), 00002200 
SH ee MEN eee ae eat a RE XES“RIMABY “(315 D)o- Posiest eee eaten e “80002710 
LINEH2 FIXED BINARY (31,0), 00002220 
Meee ee - LINEPL FIXED RINARY (31,0), 00002230 
LINEP2 FIXED BINARY (31,0), 00002240 
ees -  LINET FIXED BINARY (31,0), 00002250 
LTH 00002240 
cre ao enmnrnennn  TX ED R-INARY~ (3190) 0 wc ee ee Sees “70002270. 
t_DFSC FIXED BINARY (31,0), 00002280 
tee Se IDENT FIXED RINARY (3140), 00002290 
LLTITLE FIXED BINARY (3140)+ 00002300 
wo eM 00002310. 
FIXED RINARY (31,0), 00002320 
nn MARG or rm FEXED BINARY C31 9 O) 9 renee nnn 00002 330 
MASTER 00002340 
wie eee eee ~~~ PILE SEQUENTIAL UNBUFFERED INPUT RECORD, -- - > =~ --00002350 
MG (3) FIXED BINARY (31.0) 00002360 
-- N- moe wetter ee 00002370 
FIXED BINARY (3150), 00002380 
enn RII MB ore mee BE XED= BINARY =-€-31 9 0) gor 0 ee 0002396 | 
QUT (15) CHAR (200) VAR y 00002400 
- wevniiceee = PAGE  -- Be bes ve weve nee - 00002410 
; FIXED RINARY (3170), 00002420 
Pee cee ee PAGE _NO CHARACTER (499 «nee cee -00002430 
PUB_DATF 00002440 
wenn CHARACTER MET Dey or rr rere nn Se ee 90002450 - 
; QUE CHARACTER (1), 00002460 
pekoteee as - RETCNE : - 00002470 
FIXED RINARY (15370), 00002480 
*) ; ot os 
ERIC 140 


RFIELD | 00002490 

CHARACTFR (24) ooon2sa0 

SFIELD 00002510 

CHARACTFR (49), 00002520 
een ERE. Niece Sg a 3 Fe ee er eemeeen cae = 90002530 
FIXFN RINARY (31,0), 00002540 

-- SORTIN 00002550 

FILE SEQUENTIAL RECORD, 00002560 

=~ SORT QUT 00002570 

FILF SFONENTIAL RECORD, 00002580 

setae en aae sailed DNC eae” 2 “FIXED BINARY (31,0), Hee Fo eee =  HORAASAG 
SUM 1 00002600 

FIXEN RIMARY (3150), 000024610 

SUM2 00002629 

FIXED RINARY (3190), 00002630 

SUM3 00002640 
canteen Cerna ae PPL ED. BINARY tS 90) 5 in: isthe Hp hears =o === 99002450 
SZ FIXED RINARY (31,0)¢ 00002660 

TUTL 00002470 

CHARACTFR (50) VARYING, 00002620 

TITLE CHARACTER (396) VARYING, 00002690 

. TLE (3) ; 00002700 
wh en oe CHARACTER (396) VARYING, - wwe ee eee Ves = 90002710 
VT_NO 00002720 

CHARACTFR (10) VARYING, 90002730 

WIDTH 00002740 

moe FIXED RINARY (3140)y 00002750 

; 00002760 

ne ay ca AE oe Ht Fe ee ee ee ees mee ” wa ae oe oo . ans i. - ree oe a some oe sem tee mee OOCNN2ZT7TNO 
OPEN FILE (MASTER), oo0n27An 

FILE (ERRE) OUTPHT PRINT STREAM LINESTIZE (125), 90002790 

FILE (SORTIN) QUTPUT? 00002200 

~~ ON ENDFILE (MASTER) GO TO SORTS = ee o0002R10 

onn02R20 

Sa eo ees ER RS Ee asa SitetetliS aalee ees —_ aia = = 00007830 


/# READ A RECORN. FROM THE MASTFR TAPE. SEARCH FOR THE DIVIDER (tl) 00092840 


IN THE RECORD... */O00002R50 

; 06002860 

ms 3 a 7 00002870 

READ_MASTER: oonn2eL0 

seer READ -FILE (MASTER) INTO (DUMMY) $3 -) = cane eee mene nis oe == 0002290 

N= INDEX(OUMNY,t Pt) s 00002en0 

“TFN =O qe - ws Teles -00002910 

THEN NO: SS, 00002920 

meee ses Ss ems os WT UNO = SUBSTRIDUMMYs 15 10)3 He ae Meta ates GO OO2ESO 

PUT FILE (ERRE) EDIT 06002940 
soot en (IMESSING DIVIDER “RY -DOCUMENT> *y VT_NQ)--— m= 00002950 - 

(SKIP (2) sA(28)sA(LOITR., 00002960 

-- --GO TO READLMASTERS Mtr ee ee ee beet eee er eee ee = 90002970 

END $ 20002980 

Pe ee ea re er ie eats eee. me ee nee . f “a wen Be Alaa PER Ae, bee, Se cel lovers igh ul ands, ae, Gaara a a, ei ales. see ee nee oe ates o00002¢e90 

: 00003000 
ao eo IND THE: NUMBER -AF POSITIONS FROM THE RESUME- PAGE TO--THE-TITLE,~~ 00003010 -- 

SQ THAT THE TITLE CAN RE PULLED OFF AF MASTER. -SUM1— IS THIS 00003020 

oo WALUEe “ALSO, GET THE TITLE LENGTH. Se 8 sees 3k £99003030 

- 00003040 

ea ea ae os ae . rer - . - mies int Ske - os omnes anaes a er es ‘00003050 

SUM1L = 03 00003060 

== GET! STRING (DUMMY) EDIT (NUMB, (LENTH(1) DM -I-=-1 TO-NUMB) » ~---~-00003070 

LLTITLE) (X(N41),9F (64) (MUMB+1) F(4))3 00003080 

““N = N + 9 + (MUMB * 4)3 ee SS alee aE HS OH OSOSD 


IF NUMB-= O THEN £0; 00003100 


ENG | 444 


112. 


LonPl: DN I = 1 TA NUMB: 00003110 
SUML = SUM] + LENTH(I)3 00003129 
ENN LOOP 1; 00003139 
END 3 000031490 
a ee os ® seee CS bk. age Ree ce tire! sepena eee aates cea Ee) Meese eee see: Se eee ——--Q00031EO 
90003169 
/* FIND THE NUMRER OF POSITIONS FROM THE TITLE TO THE PUBLICATINN “90003170 
DATE SO THAT THE PATE CAN BE PULLED OFF OF MASTER. —SUM2~ IS 00003189 
peter temee o THER: VALUES 5 +8 ee He ERY ae ed Hee Se OOOO S IAD 
00003200 
nents lated i cisicaninmcineey Bike: a tee a eben wee a ia eee Sere deentees aeceuner ie Lod eg gea’ a 
SUM2 = 03 00003220 
Lonp2: M0 3 = 1 T0 23 00003230 
GET STRING (nurMyY) EDIT (NUMB,(LENTH(I) 90 T=1 TO NUMS)) 00003249 
(X(N) SF (4), O8UMA) F047 S 00003250 
N= N+ 4 + (4 % BUMB)3 000032460 
Se PONE =O THEM NOs fae ihre ans ee ee eet, So Sie a tea 2 TO 
INNER? DO L = 1 TO NUMB? 00003280 
SUM2 = SUM2 + LEMNTH(L)3 00003290 
En INNERS$ 00003300 
ENDS -s 00003310 
END LanP23 00003320 
eae =EQNPas—-bO. Tee 1S 1D Pe as Seite ase eae pe rea ee ree rs ee ae 
GET STRING (NUEFY) EDIT (NUMB) 00093540 
(XIN) ¢F(4))5 eae - 00003350 
SUM2 = SUM2 + BLIMBS 000033469 
MOS NM + 43 00003370 
END LONP3; 00003380 
acias dace ung ey ae yee ISS 4% a, Wieeates <eteee, oontieiiioneeatieds: a2 QEneaed 
00003400 
60003410 
7* FIND THE NUMBER OF Fi LITIONS FROM THE DATE TN THE IDENTIFIERS 90003420 
" AND NESCRIPTORS SM THAT THESE STRINGS CAN BF PULLED OFF OF MASTER.00003430 
~SUM3~ IS THIS VALUE. ALSD, GET THESE STRINGS' LENGTHS. */00003440 
nn ee ee ee ee re cee tee ae we ms ee we ee ee ee - ee een! . “-—~—9)0003450 . 
00003469 
eee SUM3 = 03 ; = 00003470 
LooP3A: pO I = 1 TO 23 00003480 
— GET Bs (MUMMY) EDIT (NUMB)~ (X(N) ,F(4))3 00003490 
SUM3 = SUM3 + MUMB 5 c0003500 
eee 4 \ =: ae +f “ay 3 sme me ere . - ot ne ee wate meee nee ee ee ee me et nt et eee ce ems ne te tee cree —-— OO 0035 1 0 
END LOOP3BA$ 00003520 
GET STRING (DUMMY) EDIT (L OCLCyLLIDENT) (XIN) »2 FI4)93 0000353N 
00003540 
- wee 4 ai a “ ~ «~ 90003550 
s* WITH ALL THIS FROM MASTER, THE NECESSARY DATA CAN BF RETRIEVED 00003560 
eer ceie ROM ©THE TAPE get oo tment entien eae siren aosen MA OQOOO SS THs 
00003520 
Seishin; “Masisiheasepee tele my Cone is dee 2 = tee te meee ares 00003590 
GET STRING (MUNMY) EDIT (VT _NOsED. _NO PAGE NO, sTITLE, PUB _DATE, 00003400 
DESC ,INENT) - --- 00003610 
: (AC10}9X 017) 9A(20) 9X (7) 9 AL4) ¢XCSUML) GAT LL TITLE) »X(SUM2), 00003620 
na ALT X CSUMB bg AL LED ESC bp ACL IDENT D9 $2 2 mn ee ee 00003630 
PUT SKIP (4)3 00003640 
aoe ese PUT: EDIT IVT NO YEO NOP ACE NOyTEILESPURLOATE DESC rtDENT) {A)s 00003650 
‘ - 00003660 
# ae ae a a Geiss 4 aes --00003670 
/* FORM THE SHORT TITLE FROM THE “TITLE PULLED OFF OF MASTER« */00003680 
yarn re pn ese ee tt ee em me ee ce ee ee ee ~--00003690 - 
, 00003700 
Fmd ee cy meee ee ae 8 FP mee Cg ae Fe ee ee SWS Bishi, Geek Ue sees ar : Ooono03z 710 
RETRN? oN = INDEX(TITLEsBT)* 00003720 
@ : 
ERIC 
r qc>5 
aes 142 


113. 


M = INNDEX(TITLESET)3 00003730 
IF (N50) £ (#50) THEM GO TA LoOaP4: 00003740 
T= I+ 13 00003750 
TLEC( I) = SURSTRITITLE sN+1_¢M—N-1) 5 00003760 
wee neem =P R-SUBSTRITITLEs¥41.1) -= * * THEN: TLEC(ZT) = TLECT) #1 ~ =~ 00003770 
SUBSTR(TITLE sM41¢91)3 00003780 
TITLE = SUBSTRITITLEM+2)3 00003790 
GO TO RETRN; 00003800 
Lone4: nov = 179 13 00003810 
UF Jo= 1 THEN TITLE = TLE(1)3 00003870 
weet ee ELSE TITLE = TITLE {Ff * * FE) TLECUYS - 00003830 
END LOOP4: 00003840 
PUT MATA (TITLE): 00003850 
: 00003860 
00003870 
7% BREAK UP THE MESCRIPTOR AND IDENTIFIER STRINGS INTO THE INDI VIDUAL90003880 
~ ne ----- KEYNORDS. > STURE THE STARRED ONES IN -OUT-. © -- - - += 3 £90003890 
n0003¢00 
00003°10 
WHOLE: 1 = O$ 00003920 
CALL NDISECT(NESC,1,OUT): 00003930 
IF L_INENT = 0 THEN GO TO LaNPS53 00003940 
wal nee + DESC = IDENTS - ie ee - - --=-  ---90003950 
CALL DISECT(NFSC+1+0UT)$ 90003960 
00003970 
00003980 
/% PUT THE STARRED KEYWORDS WITH THEIR CORRESPONDING INFORMATION 00003990 
ON THE DISK SURSFT FILE IN INDIVIDUAL RECORDS PER KEYWORD. */00004000 
-. — asa, - ele ahs ie eae ee ke ee . oe aa ee ia Ste - Sie 00004010 
00004020 
Lone5: na Js = 170 T3 - 90004030 
NONE : PUT STRING (NUMEY) EDIT (OUT (J) 9VT_NO,ED_NO,PAGE_NO,PUR_DATE, 00004040 
TITLE) 00004050 
(A (200) 9A(10) 94020) ¢A(04) @AUTIVADS 00004960 
anes “WRITE FILE (SORTIN) FROM (DUMMY) $ — - 2 —- --00004070 
IDENT = QUT(J)3 - 90004080 
-PUT DATA CINENT)3 00004090 
ELS: END LOOPS; 00074100 
00004110 
GO TO READ MASTERS ‘ 90004120 
ae een a teh ohn a me ane -— ae we ee ee oe. oon - =e — . Oo00041 30 
00004140 
- pe THIS PROCEDURE SREAKS UP THE DESCRIPTOR AND IDENTIFIER STRINGS 00004150 
INTO THE INDIVIDUAL KEYWORDS AND STORES THE STARRED OWES IN ~DUT~.90004160 
“IT ALSM CHECKS THAT EACH KEYWORD FITS WITHIN THE 132 BYTE LENGTH 00004170 
MAXIMUM THAT I HAVE CHOSEN. */00004180 
ah ii einem tcc ome Site i Fit a an 8 es Se i, ls te ‘aii —s ae attet me e a etee ee  e a ail aoe hea a a ee ee err ee 90004} 90 
00004200 
- = DISECT: PROCEDURE (STRING-+1,0UT)3 - 00004210 
DECLARE 60004220 
-- STRING: --- CHARACTER (660) VARYING: © 9 --- oo: 00004230 
; I FIXED BINARY (3120)4 59004240 
ne en ne QUT{€15) CHAR(200) VAR, ~-- cece eect oes 00004250 
REP CHARACTER a INITIAL omy, 00004260 
re ae - ~ - 00004270 
SRC: N= INDEX (STRING, * 3993 00004280 
mee -IF-N = G THEN DOs” - - Sot tarts -- -- 00004290 
N = LEN NGTH (STRING) + 00004300 
nn te Ne ND wie en ne ee ee eee = 90004310 
END; 00004320 
wc TR OND>2000 - os 00004330 

‘ THEN DO; 


e.. 
ENS. 


00004340 


114. 


144 


nee ee PUT FILE (FRPE) EDIT 00004350 

(*KFYHORD TAN LARGE IN DOCUMENT *,VT_NO) 00004260 

ania 3 (SKTP(2)sA(30)¢A(010))3 00004370 

GO TA TRIN: 00004380 

Seco oe ENDS ; +3 BR tte tee ees = G000439F 

JF SUBSTR(STRINGs1, L)='%! THEN 003 00004400 

re oe ae 00004410 

QUT (7) =SUBSTA (STRING »29N-2) 11 00004420 

sii ; REP? --- 00004430 

ENDS 00004446 

TT RN SnD = INDEX (STE TS, tts a mo teme cam cee near ts rom so 0004450 

TF N = 9 THE!  FTURNS 00004460 

- >) +--+ STRING = SUBS {STRING »N+2)3 00004470 

GO TO SRC: 00004480 

END NISECT3 00904490 

00004500 

SE ap en perp ane eee i a eee Bes SRaiei, SRS ah iG eee ees Se Scere sorree == 90004510 

* MAKE THE PROPER PREPARATIONS AND CALL SORT. PRINT THE SORT RETURNO0004520 

CODEs 'Ot INDICATES A GOOD SORT. */00004530 

00004540 

genes ee 00004550 

SORT: CLOSE FILF (SORTIN), 00004560 

eee aaa “FILE (MASTER )3 sie ee da Ronse wegen 00004570 

SFIELD= SORT FIELOS=(5200sCHs 4,208 579C Hy 1b) sSIZE= E9999 3 00004580 

wi Rae RFIELD=' RECARN TYPE=VyLENGTH=(641999245) %3 00004590 

CALL IHFSRTA‘SFIFLO,RETELD 245056 sRETCDE) 90904609 

tresses os PUT FILE (SYSPRINT) EMIT C'RETURN CODE = ',RETCDE) 10004610 

(SKIP (3)9A(14)9F (3793 90004620. 

eee eee ae oe ee eee Cee ee eee o00N4 42h 

00004640 

/* READ IN THE PAGF ©PECIFICATIONS FOR THE QUARTERLY INDEX PRINTOUT. 90004650 

*/0006466N 

00004670 

00004680 

oo “GET FILE (SYSIM) FOIT (PAGE, SIZE sNIDTHsMARGsSZ2sLINEH1,LINFEPL, O0004690 

LINEH2 sLINFT sLINEPZ ySPACEsCOLy (MGIN) DO N = 1 TO COL)sLTHe 00004700 

TITL sLHsHEAN, QUE) aes 00004710 

(13 F(4)-(COL) F(4) AI LTH) sF (4) ¢A(LH) oAC1))3 00004720 

‘ 00004730 

00004740 

oof THE PRINTING OF THE IMMEX-AND THT SHORTENING & YHOO SMe AT ETE V 0947 5O 

ARE ACCOMPLISHED IN THIS BLOT” */00074760 

pian “ : : 29604770 

10004780 

- WORK? REGIN: 00004790 

DECLARE 00004800 

re a ee eee “BLK wee eee _ - — wee ee —-. oe eee ee ee ee -0000481" - 

FIXED RIMARY (3140) 0000482. 

eet ened “BLATT ° Set Sipe, of age Ry AEdteee gamehiet 0000483¢ 

FIXED BINARY (3120) o0004840 

soe BREAK ENTRY (sFIXED BINARY (3120) 99)¢ 0000485 

F COL #(COL »STZE-LINEP2~1) (CHARACTER (HIDTH#3} ¢ 00004866 

‘ mae TM AN cemee me = fete war eset ietiiae stm eee amen wee te ee eee CNOO4LZA TIE - 

. FIXED BINARY (3130)+ 00004280 

ae -- - TMP FIXED BINARY (31190)>» ie Se GO0004. 890 

: IND 00004900 

ena gee FIXED RIMARY (3150)¢ ae “00004 710 

; K 00004920 

es ET RED R IMARY = (31 90) 97 o> ee ot Seacrest aS ee ~~ =~ 90004930 

; KK FIXEN BINARY (31,9)¢ 00004940 

ne ‘KANT FIXED BINARY (31,0), 00004950 

LL FIXES BINARY (31,0), 00004960 

‘<) A 

ERIC 
ENG 


115. - 


LN - ee 7 mas bees eee = 00004970 
FIXED BINARY (31:0)% o00n4een 
See ae Tees ey NN FIXED BINARY (3150), a Sa ec00049°90 
OUTS 09005000 

— a FEE yp ee 0005019 ~ 
PC (14) CHARACTER (WIDTH) VARYING, 00005020 
vee ees eee + PREY CHAR(200) VAR INITIAL ('99'), eee ee ~~ 00005030 
PUB 00005040 
wt meee ee ces CHARACTER (2)+ he SE at pe mie ae ere nacm eed Stor OOOOH EO 
SKPH FIXED BINARY (31,0)¢ o00n5s0é60 
ortewistecna eae Ep ae PE RED BINARY 12150).¢ ee one 
SUB 00005080 
‘FILE SFQUENTIAL RECORD» a ee, Se ie 00005090 
TLE (14} CHARACTER (WIDTH) VARYING, 00005100 
3 - gee ae ea - + ===" 00005110 
00005120 
a ee -——--- —~-——-00005130 
s* INITIALIZE VARIABLES AS WEENED FOR PRINTIEPG. OPEN THE OUTPUT 009005140 
FILE WHICH RECEIVES THE INDEX PRINTOUT. ia i eR ee = */00005150 
00005169 
Sete 2 ae ve rene tees sae eo = 00005170 
ON ENDFILE (SnRTOUT) GO TO SHORTEN 3 00005180 


PEM FILE (SORTOUTIS - dean tees en + re en nnn een == 805190 


FILE (OUTS) QUTPLIT STREAM PRINT PAGESIZE(SIZE+4) 00005200 

fae ae, 8 ie ee EK Se OOOOSZIO 
BLKOT: 00 2 = 1 TO SIEZE=LINEP2~—135 00005220 
COLH#(JeT) = ' 45 00005240 

este a eae EY REKOT S20 S 5 BS Sa ee  0CN nee 
K = PAGES 00005260 

- IND =13 00005270 

IMAX = COL + 13 00005220 

LN = LINEP13 7 s) sedidedewitowees. Geucainw, america eee Reeeanigeh ts SIA RR aeS eS ear SUT ata ee Bh oat --- JNOG05290 

NN = 05 00005300 


a eg BE Ee Ng met a 80095910 


SKPP = MARGS 00005320 
tee ee tm ee ceo GSKPH = SZ —- LH + 1? ~ core eeceese ee et 90005330 
END; 09005340 
whainie Gemtbeaee SE DOS meee nee we rere = = 90005350 
SKPH = MARGS 00005360 

Cee eg pen See ge en 000s570™ 
END; 00005280 
ee ee ad oe wee ee ee am ee ee wee eee tee ee et a een en = soe 00005390 
00005400 
oo Je- “PRINT THE HEADING FOR THE TITLE PAGE. © °° 707 sores eee ook £Y90005410 
00005420 

= a ~~ - 90005430-: 
PUT FILE (OUTS) EDIT (PAGEsHEAD) 00005440 


Oe cee of PAGE sL INE (LINEHL ) ¢ COLUMN (SKPP )9F (4) 2 SKIP C9) s COLUMM( SKPH) 5” 00005450 


AC LH) 33 


00005460 


os ue eens = PYT FILE (OUTS? SKIP €LINEPI-L-ENEH LA $c een ~-- 00005470 


, LP8: DO I = 1 TO COL$ 00005480 
= — -PUT-FILE-( OUTS) “EDIT: -¢ PAGES }-— > _ 0000 549 0— 
USK IP (0) ¢COLUMN(MG ET) +4WID7H-1)9A04)): 00005500 
iieragenen ek ENE Dpee + 3 Ste ee eres nee 8 Ah: eee mae oo 00005510" 
PUT FILE (OUTS) SKIP(1)3 00005520 
oon ee wee ae ee ot meee - 2s mee Rene nome teens ee oe ee ree ee tee eee eeenenmnemener ee ae eee tate O18) 90 55 30 = 
. 00005540 
pe READ “EN “A-RECORD--F ROM--FHE-SORT ED -DESK~ SUBS ET FE: “Bs BREAK-UP “THE 00005 950— 
; RECORD INTO THE INDIVIDUAL INFORMATION. SEARC— FOR THE MARK IN 00005560 


cee ee THE KEYMORD THAT INDICATES WHERE THE RLANKS: ON 
CUT THE KEYWORD AT THIS POINT. BREAK UP THE 


eo... 
ERIC 


ve 
Wee 
7 


HE RIGHT BEGIN ANDO0005570 


TITLE INTO STRINGS 00005580 


eae 


te bette 


116. 


-- THAT FIT WITHIN THE COLUMN WIDTH SPECIFIED */00005590 
00005600 

3S me SS 00005610 
READ! READ FILE (SARTOUT) INTO (NuUMMY)s 00005420 
Le LENGTH DUI Y DG . ERG ees meres = 7790005630 
GET STRING (NUMEY) EDIT CIDENT,VT_MO,ED_NN,PACE_ND,PUR_DATE, 00005649 

alts ~~ TITLEY (A200) 4A C10) A020), A041, A07) ACL “24103 00095650 

N = INDEXCIDENT,#"*) 5 00005669 
wae EDENT = SUBSTRUIDENT +1 oN-115 00005670 
CALL SREAK (TITLE,WIDTH-2,TLPsBLKT): 00005680 

SE RED ER ANS NS See ch See oe 00005690 
00005700 


/* IF THE RECORD IS THE START OF DATA FOR A NEW KEYWORD: THEN BREAK 00005719 

UP THE KEYHGRD INTO STRINGS OF LENGTH THAT MATCH THE COLUMN WIDTH.00005720 

oe -- INDICATE A NEW KEYWORD'S START WITH -IMP-. INITIALIZE -KNT-,THE 00005730 
NUMBER OF LINES IM THIS BLOCK OF DATA. */00005740 
eS meee eee A a ee ee ee ae o00on0s750 
00005760 
00005770 
00005780 
00005790 


~>- + TF IDENT 7= PREV 
THEN DQ3 
ae PREV = IDENTS 


IF (N-1) > WIDTH TREN CALL BREAK(IDENT»WIDTH,PC>RLK) § 


ELSE DOS es 
BLY = 13 
ete en ats ‘ —— PCtl) = 
END$ 
Ba ad Reina eo KNT = BLK + 2 + BLKT3$ 
= 13 


IDENT 


N00K5800 


*-900005810 


00005820 


00005830 


00005840 


00005850 


00005860 


an ee er ENDS OO akin siyisradileeeeos fakes ee ee ee ene mee “== QOONSRTO 
one Seeo 
ooc 7° 9 
00005900 
*/ 00005910 
o000592”Nn 

o jase Saat Se re pee ene ee ee ee ee 00005930 
ELSE DO: 00005940 
worse cess KNT S BLKT + 13 — | 00005950 
= 03 00005940 

ae END 3 00005970 
. 00065980 

Ms 7 - ee 3,6 cee ae oy coe eee cr en ereseee ee Fm mee Oe Fe ee onnggn&a9n 

/* IE THE BLOCK OF DATA GANNOT FIT INTO THE CURRENT COLUMN BEING 00094000 
sees? | BILLED WITHOUT FXCENING THE PAGE LENGTH, A NEW COLUMN MUST RE- oo0on6nloa 
STARTED. */00006020 

ree 00006030 
00006040 
~--- 90006050 
00006160 

/*- IF THIS IS A NEW KEYWORD, PRINT ITS NAME IN THE INDEX. * /00006080 
S55 2e sy a ee ee - 00006090 
00006100 
ce ens a eee ees ee OOOOELLO 
00006120 
-00006130 
00006140 

- 00006150 
00006166 


/* TE THE SAME KEYWORD IS CONTINUINGsSET VALUES IN -:?- AND -KNT- 
FOR THIS SITUATION. 


TLE KNT) (> -STZE THEN GO-TO HEADRS co Stott 


LH -REFURN SEF IMP = 1 THEN DO 3-- 8 2 me nee 
NN = NN + 15 

Liecte tence nem co oe +6 PSS OO FE = 2 TOE 

- 4 -" COL#CIND NN) 

fee dias 24 : NN = NN + 13 

END LP63 

a NS epee 

00006180 

Wee hs ae a ee oe = 90006190 

yx PRINT THE DOCUMENT NUMBER AND OTHER DATA FOR THE DOCUMENT BEING 00006200 
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vee ee ee et ee Sree cer Ser ener es 0000s 1 70 os 


7. 
LISTED UNNER THE KEYWORD. */900004210 
00906220 
00006230 
ee PUT STRING {COL#CINDsNM)) ENIT (VT_NO,ED_NO,PAGE_NO) 00006240 
| soeiaeteeea seme (A E100 9X (SPACE) 4 (290) 4X (HIDTH-39~- SPACE-1) ,AE4) 73 a - 000606250 
NN = NN + 13 00006260 
LP7: DO 1 = 1 TO BLKT; 00906270 
- COLE(IND,NN) = * * |] TLP(T)S$ 00006280 
; NN = NN + 13 Pca eaten eee, Se ee NG aU 
END LPT73 00n06300 
ee eee oe ee ‘+ Ae weer Seneee eer BORNE s LO 
om GO TO REAN; 00004320 
j 00006330 
i 00006240 
7% & BRANCH HERE STARTS A NEW COLUMN BECAUSE THE CURRENT COLUMN ITS AS00006350 
” FULL AS CAN BE. CHANGE ~IND- TO THE NEXT COLUMN NUMRBER OM THE C0006360 
j were oe PAGES oot ae 3 oe: ; es Hotes re sees sete = 38700006370 
t 00006280 
00006390 
i HEAMR: IND = IND + 13 00006400 
| aes 00096410 
é 00006420 
wwe yee TR THE LAST COLUMN ON THE PAGE IS FULL, STAQT A NEit PAGE AS WELL 00006430 
: AS A MEW COLUMN. 00006440 


ee ae 


steed 


[ 


SET THE COLUMN MNUMRER TO ONE. PRINT OUT THE PAGE JUST COMPLETED 00006450 
ON THE QUTPUT FILF. INCREMENT THE PAGE NUMBER OF THE INDEX AND 00006460 


PRINT A TITLE ON THE NEW PAGE. */00006470 
00006480 

Seems 2 Seven . a a : 220s: os Agate - Ee” pease 00006490 
Tr IND = IJMAX 00006500 

THEN DO3 60006510 

INN = 43 00006520 

“HDi: NO LL = 1 TO. SIZE-LINEP 2-15 ; 00006530 

PUT FILE (OUTS) SKIP(1)3 00006540 

tenes chee eee ee oe POS KK = 1 TO CHLS sR MNES OS aw eats ee oma He OOOH S50 
PUT FILE (OUTS) EPIT (COL#(KK,LL)) 00006560 

(SKIP(O),COLUMN(MG(KK) ) sACWINTHE3) 3 - 00006570 

COLH(KK,LL) = 4 93 00006580 

END LP9; : : 09006590) 

FNP HD13 00006600 

nis <a ws sn nip cas Sain ia ob ee eas PAGE = PAGE + i 7 ie! Tae av dajebie cca ses eee tceee ee ee ee ee ee s. 0000661 (@) 
IF SKPP =MARG THEN NO$ 0006620 

SKPP = SZ = 35 . 2 : 00006630 

SKPH = MARG3 00006640 

END; aie ae Seng yee 00006650 

ELSE NO; 00006660 

ee er ett inne ee tee ee - SKPP- = MARG 3 eo ctr teentse ess commer re ss + OO006670 
SKPH = SZ — LH + Ls 00006680 

; END Sane 2 ee ND 06690 

PUT FILE (OUTS) EDIT (PAGE HEAD, TITL) 00006700 


? 


(PAGE, LINE(LINEH2 } ,COLUMN(SKPP),F(4) »SKIP(0),COLUMN( 00006710 
SPP ae Cie LENGNL ENE Tae SESE= Si stil clea eae, 00006720 


E SS ATL TH ITE maven nem a 00006730 - 
PuT FILF (OUTS) SKIP (LINEP2-LINET) 00006740 

--- + = -LP10 DA LL = 1 TN COL? rte we nee rman + + == 90006750 

PUT FILE {QUTS) ENIT (PAGE) - 00006760 

ee (SKIP (0) sCOLUMNIMG(LL) 4WINTH=1) 9A14))3 - --00006770 

END LP103 00006780 

se PUT FILE (OUTS) SKIP 1) $3 errrr cr ee see me 00006799 

END: , 00006800 

on amen tre sea as - ig ‘ —— 2 ms * . oe stat : . . ss eee - Oo0006é£210 

00006820 


Takata 


Boeke 


—a 


Taine. d 


enh 
i r 


oe 
7 
H 


ERIC 


118. 


7* NEW PAGE OR NOT, IMITIALIZE THE LINE COUNTERS FOR A NEW COLUMNS 


IF IMP = 1 THEN 


Pipa ae a Se ie: Rate. eee > 7 NN ptm 


INEP2 + 13 
eae ee ee es END s o ~- ste -- se we tee soe 
TF K = PAGE THEN LN = LN + LINEPL - LINER? 3 
GO TO RETURNS 


cr 


7*® WHEN 


THE SORTED =ILE HAS BEEN READ COMPLETELY, 
——-—---BEING FILLFD ON THE GUTPUT FILF. INDICATE -THR 
INDE AND CLOSE THE OUTPUT FILE. 
SHORTEN? ‘ 
NO I = 1 TO SI7F=-LINEP2-15 
wa PUT FILE (OUTS) SKIPHLY$ (5 rt emer tee 
LP1l: DO J = 1 TO COL; 
PUT FILE (NUTS) EDIT (COL4(J,7)) 
(SKIP (0) ¢COLUMN (MG (J)),ACHIDTH+3)) 8 
END LP11$ 
END SHORTENS 
a PUT “FILE: (OUTS) “PAGES : oe eet Gam 
PUT FILE (SYSPRINT) EMIT ('LAST PAGE USEM 1S ',PACE) 


(SKIP (3),A018),F(4))73 
CLOSE FILF (NUTS), 
; : FILE {SARTOUT)$ 


ere ten 


/* SHORTEN. THE RECTRNS ‘ON 
FILF ON TAPE. 


SORTED SUBSET FILE AND 


FORM A “NEW SUBSET 


ON ENOFILE (SORTOUT) GO TO STOP$ 
ve PEN FILE (SORTQUT ) go 0 ott ee 
FILE (SIR) OUTPUTS 
--+ ++: + PUT FILE (SYSPRINT) PAGF$ 
READ FILE (SORTOUT) INTO (COUMMY) 5 
--GET STRING (MUMMY) EDIT (IDENT, VT_NO,PUR) 
(A1200)5A(10) 9% (2949 A02))5 
~-YTNO =--SUBSTRIVTLNO 14 93) 
PUT STRING (NUPMY) FDIT CIDENTsPUByVT_ NOY 
~~ {4( 200) sA(2)5A(6)93 Feet ee ee 
WRITE FILE (SUR) FROM (DUMMY)$ 
PUT EMIT (DUMMY) (SKIP (1 ),A(208))3 
GO TO RN 
La --SFOP £----CLOSE FILE 


(iStpjise see 


/*® THIS PROCENURE TAKES A STRING (-B8REAKE-) AND RREAKS IT UP INTO 
--=-» PJECES OF LENGTH -LNTH-. THE PIECES ARE STMRED IN -RROKE- AND 
ue INDICATES HOW HANY Jeane IT eile 


nn en nt ee ee ee we tee re tee cme ser eieatinaet/ ics eee 


BREAK: — PROC ENURE(BRFAKE sLNTHsBROKE 
NECLARE , 
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PL SUBSTR IV T_Nis B93) 92 = eeteeeteer ee te 


oNU)S ; . : ee ste cen near 


*/0000683N 


00006f40 
00006R50 
00006266 


~~ PODOSRTN 


N000bFa0 
00006890 
o000690n0 


“00006910 


O00NES 20 


“00006930 


00006646 
00006950 
00006960 
00006970 


P2INT BUT THE PAGE 90006980 
LAST PAGE NUMBER DFOOONES9OH 
*/00007000 


00097010 
000070709 
00007029 
00007040 


00007059 


O00007OEH 
000070790 
oo00g7ORA 
090079090 
00007100 


‘000907110 


00007120 
00007130 
09007140 
00007150 
0000716n 


--$0007170 


00007180 


*/0000N71°9 


00007200 
00007210 
00007220 


‘00007230 


0N007249 


- 00007250 


00007260 


- 00007279 


00007280 
00007290 

00007300 
00007310 - 
00007320 
00007330 

00007340 


~00007350 


00007360 


- 00007370 


00007380 


- 00007390 
*/00007400 
-00007410°- 


00007420 


~ 00007430 
00007440 


BRFEAKE 
LATH 
TEMP 


BROKE. 4 


| F ee a er ee ee —- PIU A hag ee ee = 


- 
i 


SRCH * L= 


SUM = 


L 
SUMI 
NU = O05 
SUMI = 
~~ TEMP = 


IFL= 0 
THEN 
L 


SUM] = 


GO 
ENDS 

SUM1l + (L 
TF SUM1 <=LNTH THEN 003 


SUM1 = 


NU = 


BREAKE = 


03 
RREAKES 
INDEX ETEMP,! 


END $ 
LNTH 
OM: 
-PUT FILE (FERRE) EDIT : 
‘ ('TROURLE IN BREAK WITH 
“-€SKEP(2)5A(22),4(10))5 
TO RFANS 


nn: 


Ne 


119. 
CHARACTER (396) VARYING, 
FIXED BIMARY (3150),7 
CHARACTER (396) VARYING, 
CHARACTER (HIODTH) VARYING, 
-FIXED RINARY (31,0), so8e 
FIXED BINARY (31,0)+% 
FIXED SINARY (3179), 


= LFENGTH(TEMP)3 


THEM nos 


NIfo= 
BROKE (NU) 
NU & 
RROKECNU} 
RETURNS 
END; 


nos 


NU = 
“BROKE (NU) 


SUA1 + £3 
IF SUML°-> LNTH cece cme see 


NU + 


1 
= SUBSTRIBREAKEs1,SUM1—-L—-1)3 
V3 


= SUBSTR{BREAKE,SUMI-L4+1)3 


MUL + 


NU + 15 
= SURBSTR¢(BREAKE+1,SUM1) 5 


RETURNS 


NU + 13 
“BROKE (NU) 


ENDS 


‘,VT_NO) 
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TEMP = SURS TR(TEMP,L44)3 

- SUM1 = -SUML +15 ph yin aie tedaleee et at 
GO TO SRCH: 
END; 


= SURSTRIRRFEAKE s 1s SUM1-L) 3 


SUBSTRIBR 
SUM BOS 


GO TO SUM? 


END WORKS 


--- ++) + END BREAKS | 


ann ann CLOSE FILE (FERRED, 
END SUBIND$ 


EAKE,SUMN1+2-L) 3 


FILE (SORTOUT) $ ~-------- 0 eee 


Sd 
Ps 
ry 


00007450 
90007460 
oco0 7470 
JONONTESO 
090907490 
00007500 
Oooo0ng74S10 
00007520 
00007536 
O0007540 
90007550 
00007560 
00007570 
NQQOTERO 
o0cn75e0 
000907690 
OOONTELO 
00007629 
OC5N07630 
0N007640 
o0agng7Tés50 
00007660 


- 20007670 


G0007680 
onnndT690 
000907700 
00007710 
ONNNTT2N 
-Q0N0TT30- 
oG007740 
oon007750 
00N0O7740 
OCcNNTT7A 
000077280 


- 00007790 


OO0NTFOG 
OOO00TR1N 
oo0o07s820 
00007°30 
oooc7Ts4o0 


-00NHTe250 - 


o000g7s&é60 


* 0000TETO 


o0007Rrs0 
00007290 
00067909 


-- 00007910 


00007920 


~ 00007930 


00007940 
000072950 
00007960 


--90007970 
00007920 


120. 


AUTHOR QUARTERLY 
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ee ee —. wwe ae -L21, -e~ - ~ 


FIRST: PROCEDURE OPTIONS (HATH Vs 00000010 

[eR RR RR AE a Bese ae ee Bi 2 ae 2K SRR SE EE Disa ACSI AE AE she ok Be oe ae 2 aie Oe BE ae ot he ahs abe se os kk ake See oe Se Se ok He ale ae oe Sake Sek ee AK /OO0000 20 

% */00000030 

* QUARTER L a AU THOR TN DE X */NO0000040 
Se eee nee ee ee for ot trie ef OO CN0050 
* */00000070 

* SURPOSE: EXTRACT NATA FROM MASTER TAPE TO BE SEM FOR QUARTERLY */0000NNeN 

/* INDEX, ANMUAL INDEX, AND DATA BASE TO SIMPLIFY FINDING */N0000090 

nn Ae : PUBLICATION INFORMATION REGARDING A GIVEN AUTHOR. */O0NN00100 

/* NOTE: AUTHQR'S NAMES ARE CAPITALIZED IN THE NUTPUT DATA #/ONNN011G 

an VARIABLES REQUIRING DEFINITIONS ARE DEFINED WITHIN THE --/00900120 
as PRO GRE */00000130 

ren fa : ” */00000140 
[ERE EAS REE FE SEE SK ie eI HE Re 2 2 HE DE 2s BENE ETE IE 3 BEE 2 aE 2 os Hee aie ake sic ake Be ote ee ahs ae ake a ae aK aie se oe OK age SSK ae ok Re ate ok He ke A AK SO OO0N150 

--AMCL BUFFER CHAR(3736) VARs : ; : 00000160 
THESRTA © 00000170 

——---—_—_———— ENTRY (CHAR 148) ¥CHAR(34),F TXED BINARY€315 Ode FIXED - BINARY (1590) }3-- QO000180 
RETCDE FIXEN RINARY(15,0),% 000001°9 

SFIELD CHAR(48), ’ = 0000029090 

RFIELN CHAR(34)-+ 00000210 

BEGIN_SHORT CHAR{1) IMITIALCOT<!#)s - ; * 00000220 

: ENN_SHORT CHAR(1) INITIALO'S')s 00009230 

or oe SHORT TITLE - CHAR (396): VARYING 9° corn tm eo ome 90000 240 

VT# CHAR (10); 00000250 

EN2 CHAR(20)_ 00000260 

NAME CHAR(132)¢ 00000270 

UPC CHAR(132) INITIAL((132)" ")y 09000280 
RESUME_PG CHAR(4), 90000290 

oo PER UAUT CHARACTER(132)_ 7" Sie oe eee tem ene a easteiStaet caseeae ame OOO SCO 

TITLE CHARACTER(396) VARYING? . O000031¢ 

-CARP_AUT CHARACTER (528) VARYING, 00000220 

lek. PER_AUTsLEN_P_AUT(2) sTITLE_LEN» #_COR_ AUT sLEN_CLAUT(5) #SA, 00000239 

LSA (2 )odeLPl 9LColLGsLPAyLP29LByLEN_ AVAIL, LEN_ Jo C4 LEN_PUB, 00000240 
LEN_PG#yJ19J32) FIXED RINARY(3190)¢% 00000350 

— PUB DATE CHARACTER(100) VARYING, = © machieseatnen she scgisy eee Sieadete onde ee Meee eee O OOS 60 
PAGE CHARACTER(10) VARYING; 00000370 

BUF2 CHAR(560) VARS ; ea s c0000380 

/* : 00000390 

CREATE AUTHMR FILE : : 7 ; 90000400 

*/ 0000410 

a EREATE REG ING mr rin mmr oer e mmmnmcnnmrmnenins ==" IO OOO42 0 
OPEN FILECSYSPRINT) LINESTZE(120)3 00000430 

-- -- OPEN FILE( PERSON) TITLE('SORTIN') RECORD OUTPUTS aa * - 90000440 
ENTER: REAM FILE( MASTER) INTO(BUFFER) $3 ; 00000450 

“~-- ON ENDFILE(MASTER) GOTO FINISH3 ii teen eee eee ce oem SS DODONS OR 
LEN_C_AUT=0 3 00000470 
Seen ENP AUTH 0 wg eran ee mee ew net enn ns meneame ar mins enemas meres EA =O OGOHN ARO *° 
LSA= 03 00000490 

tom ap Baoan: = stent men eae ee nee ce tae = rene es emer meee cee eet ne we ne cee commer ees ene cee on eee 6 te Meee == -Q0000 500 
FIND BEGINNING MF LENGTHS 00000510 

sists soe Joe eM “ae fee me ee me emt eet rt ee a6 a. i, baa atte lata Pi ; 0000G520 
a T= INDEX(BUFFER? *119)5 , 00000530 
eT FO TID OU THEN GO -TO- INUTHOR pioneer ee cet eee 0000540 - 
é ELSE NO$ 00000550 

nee Ye SIGNAL FOR’ LENGTHS IS MISSING ~ TERMINATE */ > Feros es =~ QO0000h60 
: PUT LISTC®SINDEX IS WRONG tT) 3° 00000570 

Suneeie Lead Leer 2 eee GA TO FINISH: END; ar BS be RS aye ~-=-Q0000580 
AUTHAR: 3$ 00000590 
a fe “FIND: PER & ‘AUTHORS LENGTH Xf rrr tr Seti in IOS 9 fe eet ee OOOO GO = 
r et STRINGUBUEEE? Beye ice LAUT) (X(1#2) 9F (4003 00000610 

Tee tw nee stew te eee ‘Jl= [+ 63° - . ah mint oe a Reade Ga a ae, 00000620 


IF #. PER -AUT>2 THEN DOS — 00000630 
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ee! + : 122. a - 
eG PUT EDI T(AUFFER) (SKIP, AY$ 00000440 


PUT LIST(' << PERSOMAL AUTHORS WRONG',#_PER_AUT); 00000650 

#_PER_AUT=03 ENN: 90900660 

IF #_PFR_AUT=2 THEN GET STRING(BUFFER) EDTT (LEN P_AUT(L) » 00000670 

a ee ee EEN _P_AUIT(2)) OX (1992 F402 ELSE- --—-- - 90000680 

IF #_PFR_AUT=1 THEM GET STRING{BUFFER) FRIT(LEN _p_avten)) o00006en 

Stemi ve ences - UXCT)sF04))8 00000700 

I= I+ #_PER_AUT#4? 00000710 

-%-FIND TITLE LENGTH AND CORP. AUTHORS */ Fe ee ee sae = 0000720 

GET STRING(BUFFER) FOIT(TITLE_LENs#_CNR HAUT) (X(T) 92 FL4)) 5 00090730 

SR en Sates fea ier Hes ee = QGOOO TED 

IF #_COR_AUT>5 THEN 003 00000750 

x PUT EDIT(RUFFERI(SKIPsA)3 00000760 

PUT LIST(' = CORP. AUTHOR WRONG',#_COR_AUT)3 00000770 

os # COR_AUT=03 ENND$ ; o00007RN 

‘TF #.COR_AUT>O THEN 00000790 

(a —- GET-STRING (RUFFER)  EDIT{(LEN_C_AUT(J) ~~ DM J =°1 TO #_COR_AUT)) 00000800 

(XCI)> 5 FC4))3 : 00000810 

vies - T= 1+#_COR_AUT*43 a os 69000820 

7% FIND SPACE TO AVAILASILITY INFO. “¥/ 00000830 

vee GET STRING(BUFFER) FDITCHSA)(X(I)sF(4))3 -= - 90000840 

I= 1+43 O0000£ ‘0 

aA —[F~ #SA>3~THEN-DO$— cere — -- ----== --QO000F 9 

PUT EDIT(RUFFER) (SKIP, A): o0000F oO 

PUT LIST(' SPON. AG. WRONG’ s#SA)$ -. gonads “0 

#SA=03 ENDS 000002 20 

“= s+ TF #SA>0 THEN 00000900 

GET STRING(RUFFER) EDITCILSACJ) OO Je 1 TO #SA)) 00000910 

SS SSeS te tieeians Saag. X{ T} a3 F (4)) 4 - is ae ie * eee en a7 8 Pa ‘ Paar Pat oe how. * Pre ee ee oe ees or cm 00000920 

Ts Ie#sanas 00000930 

GET STRING(BUFFER) ENIT(LP1,LCyLGyLPAyLP2y,L8,LEN_AVAIL,LEN_J_S 00000940 

»LEN_PURy»LEN_PG2)(X(T),10 F(49)3 00000950 

-- /* FIND DATA FOR PERSONAL AUTHOR RECORD AND PLACF IN FILF */ - 00000960 

/* 00000970 

ne 2 EST HE- LENGTH OF- INFORMATION TQ -BE SKIPPED © © -200 ee cree ce QONN09PO 

*«/ oo00n0998n 

-~ I= LSA(1)+LSA(2)4LPL+LC+LG+LP A+LP24+LBR+LEN_AVAIL+LEN_J_C3 o000LNON 

GET STRING(RUFFER) ENITIVT#,ED#,RESUME_PGsPER_AUTyTITLEyCORP_AUT, 00001010 

cto ee es PUBL DATED (A (109 9X017) 494020) 4X07) 9 ACG), ACSUM(ILEN_P_AUT 3 5 00001020 

A(TITLE_LEN) ,A(SUM(LEN_C -AUT))sX(1)4 yACLEN_ PUB) § 00001030 

wenn PUB DATE= SUBSTRIPUR_DATEs692)3°°°-- wo at ae oe oe eee = 90001040 

* PULL OFF SHORT TITLE 4 00001050 

eye ee ae ee -$2= O3-° * . Ieee earoeks whe Fase We Rp aa. 9, Sine ake & rm ages 2 we. sate ey hows at -O00001060 

PULL? Jo INDEX(TIT LEyBEGIN. _SHORT)3 00001070 

tee norte EE JO THEN GA TO PUTOUTS - wee eee ee ne een QO0010AR0 

IF SUBSTR(TITLEs J+191)=BEGIN_ SHORT THEN J= J+1s 00001090 

ar JI=INDEX(TITLEsEND_SHORT)3 wctenne tee oe seein samen nt ee net nee soem meme n JOOOLINO 

. , IF J1=0 THEN GO TO PUTQOUT?: 00001110 

we memes ote me = SUBSTRITITLE, J191)=SUBSTRITITLEs JLt1l gl) 3 (orm ee me = 00001120 

J1=J1+13 - : 00001130 

---fF-U2=0 THEN: SHORT_T ITLE=SUBSTRITITLEsJ+19J1—-J-1)3 ELSE -- ene + 90001140 

SHORT_TITLE=SHORT_TITLEI}' "{{SUBSTR{TITLE,J+1,J1-J-1)3 00001150 
FIT L B= SURSTRITITLE 9 SLED) So cn cr ne it cn rt cre tree 0001160 - 

J2=JS2+15 00001170 

wee TO PULLS oc ccce cc tte cer te te te ee eee ee eee = 290001180 

PUTOUT? IF J2>0 THEN no; 90001190 

we eteme ee oo  TYITLESSHORT_TITLES  -*- ee ete es te ++ 90001200 

TITLE_LEN=LENGTH(SHORT _TITLE)s “END: 00001210 
—— “PR #: PERL AUTTS 0° THEN DO $n cr ec me er et nn 00001 220 | 

; i 00001230 

Pee se ee SET UP RECORN FOR AUTHOR FILE se ree eee = = 90001240 

: */ 00001250 


ss = ; 123. . 
cee ce nee NAMES SUBS TR (PER_ AUT »15LEN_P_AUT(1))5 00001260 


UNS PEC (NAME) =IINSPEC (NAME) [UNSPEC (UPC)$ oc001270 

| i a MAKE UP FIRST PERSOMAL AUTHOR RECORD wok KS 00001280 

PUT STRING(BUFZ) ENDIT(NAMEsVT#,EN#,RESUY E_PG,PUB_DATE,TITLE_LEN, 00001290 
TITLE) 1A (132 195610), A620),A4(4),A02)5F(3) sACTITLE_LEN) } 3° ~~ ~~~ 00001260 
WRITE FILEC(PERSOAN) FROMI{BUF2)3 ENDS on001310 

Baek oo TR # PER_AUT=2 THEN DO$ : 00001320 
ms PLACE NEXT PERSOMAL AUTBOR IN RECGRN ¥/ 00001330 

ee ee oe NAMES SUSSTR (PER_AUT »LEN_P_AUT (1)4+1,LEN_PLAUT(2))35 : wor === - 0001340 
UNS PEC (NAME) SUNSPEC (NAME) [UNSPEC (UPC) $ 00001350 

ro SUBSTRIBUF2Z 91 9122) =NAMES og Paes Hanes) oy eae Cents aap casemate OOO OL S60 
WRITE FILE(PFRSME) FROMIBUF2)5 ENDS 00901370 

cee ot = TR #_COR_LAUT™=0 THEN DOS - 00001380 
NAMES SUBSTR (CORP_AUT glyL=N_C_AUT(1))3 00901390 

wee 2 =e INS PEC (NAME) =URSPEC (MAME) LUN SPECCUPC) $ ee 00001400 
EF OX MAKE UP FIRST INSTITUTIONAL AUTHNDR RECORD ef 00001419 

= ~-——- PUT -STRING(BUF2) EDIT (NAME ,VT#,ED#,RESUME_PG,PUR_DATE, TETLFILENy -ON001= 20 
TITLE} (A(132) gAC10) y AV 20) A644) AC2)5F(3) AC TITLE_LEN)) 5 0n001 +30 

WRIT! =ILE PERSON) FROMCBUF2)3 ENNS 00001-4409 

LC= 1: 00001450 

~ ose + TR # CUOR_LA ITD>1L THEN OO J=2 TN # _COR_AUTS$ 00001460 
LO=LCFLEN_CAUT (3-13 00001470 

ems ‘NAME= SUSSTRECORP_AUT LC oL EM_C AUTO) 23 mrt tm mn COOOL ERD 
UNS PEC’ AME) =SUINSPEC (NAME) JUNSPEC (UPC) $ 00001490 

- fe - PLACE NEXT INSTITUTIONAL AUTHOR RECGRD */ 00001500 
SUBSTR( 'JF2 919122) =HAMES . 00601519 

ene cee oes > WRETE FILE(PFERSON) pROMTEnEe 23 ENDS; ? OO00L 520 
GA TO ENTERS 00001530 

moon oe fe ae ant eee mem eee nett ae econ - ties, im eae te, sareianis wees Pars cee te lee See ee eee - 00901540 
CLOSE FILES IN PREPARATION FOR oaRT , 00001550 

oe 00001560 
FINISH: CLOSE FILE(MASTER)» FILE (PERSON) 3 00001570 
“END CREATES * - 00001580 
SFIELN=" SORT FIELNS=(59132sCHeA, oe a 200 5 00001590 
——-—-RETELD='- RECORD TYPE=VYsLENGTH=(564599271)~ = aciianmeam” 1010105 41016) 
CALL THESRTA (SFTELD y RF TELN 945056 yRETCDE D § 00001610 

eae ies ga io SRY ; - 09001620 
ee ane OF CREATION STEP */ 00001630 

IF RETCDE= 0 THEN BEGINS 00001659 
sf TF SORT IS NOT SUCCESSFUL’ SKIP-THIS BLOCK, OTHERWISE: -PRINT--INDEOON01 660" 
*/ 00001670 
“DCL CENA yLN_COL yLEN_HEADING gK sPRINT_ LINE sQUARTER, PG_L_OR_ReNEXT_INITIALO00G1680 
2VT_LED_SKIP 000016590 

venrseee ot gy MARGIN» #_COLS sCNL_COUNT » INDEX PAGE,II,LEN_PAGE, INITIAL LINE) ~~ ~~ 00001700 
. FIXED BINARY(3120)9 OO0001L7T10 

— TOP CHAR (479 > 70 Salen 02010100 E40) 
HEADING CHAR(20} VAR, . 00001730 

--- - COLL SPACE CHAR(20) VAR g = errr crt rt rn ners nee a Seren ne screen one “+--+ 90001740 

DATE CHAR (2) : 00001750 

ceees es PREVIOUS CHAR(132) INITIAL ((132)% -")$-- cre Be Reed eae aot - 00001760 
; /* = 00001770 
1B FAIM ~PARAMET ERS FAR THES PRINT: = 2c nen rte ert en rem = QOOOL TRO 
7 #_COLS = NUMRER OF PRINT COLUMNS 000017909 
9 nee eee MARGIN = TOTAL PRINT SPACE EN COLUMN FOR AUTHORS NAME - 00001 80¢ 
LEN_PAGE = NUFBER OF PRINT LINES ; 00001810 


The ee eee me HEADING = WHICH QUARTERLY INDEX “AND YEAR FOR EXAMPLE — AIM/FALOOO001 820 
TOP = INDICATOR FOR POSITIONING OF HEADING AND INDEX PAGE NUMRO0001830 


a aa aaa ade CSS IF-TOP="LEFT'tTHEN fAIDEX PAGE-NUMBER APPEARS ON THE-EFFT -OOON1E840 © 


-AND HEADING APPEARS ON RIGHT 00001859 
eee wenn moe FR TOPS IRITERREVERSE WILL OCCUR > - = 9ONOLREN 
COL_SPACE = CHARACTER STRING OF BLANKS TO RE PLACED RETWEEN CNO00N1A70 
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VT_LED_SKIP = MUMBER OF COLUMNS TO BE 


IN VT»FO,RESUME PG. LINE. 00001890 
INDEX _PAGE = INITIAL LING PRINTEO IN THIS INDEX oo00190n 
INITIAL_LINF = LINE FOR 'PAGE' LINE ON TITLE PAGE 00001910 
seen eee ee AEX T INITIAL -= LINE FOR 'PAGE* LINE ON PAGES AFTER TITLE~ PAGE 00001920 
af 00001930 
-f% INITIALIZE PARAMETERS */ 00001940 
GET FILE(SYSIN) ica real oar dese aus ae PAGE sHEADING,TOP;sCOL SPACE, 00001950 
“+ > VTLED USK IP, INDEX_PAGE,INITIAL_LINE,NEXT_LINITIAL) COPY? * ~ 00001S60 
T= LENGTH(COL_ SPACE) 3 Qg00019 709 
———t EM DHEADING= #4 COLS SCMARGIMNG® (2748-75 099001°80 
PRINT_LIME=LEN_HEAD IMG+13 90001999 
BEGIN; 00002000 
DCL (AUTHOR_ARRAY(6),CRPAR_COL 1 30 15S SNAPE,SKIP_LINE vONE_LINE) 00902010 
: CHAR IMARGIN+3 3s 00092020 
NEP_BLOCK FIXEN RINARY(31e0 ) T TIAL 9), 00002030 
—~—-- = PAGE: TOTAL -FIXED RINARY(31, © IPO TIA.) 975 see a a. om = 0002040 
NCL PRINTER_PAGE(LEN_ PAGE) CHER SHEA ING) VARS 00002950 
DCL AUTHOROUT CHAR(140)3 : ON002040 
PAGE_TOTAL=0% 00002070 
“SKIPLLINE=! #3 00002080 
LEN_HEAD ING=LENGTHCHEADN ING) $ 00002090 
—-~-PRINTER_PAGF=' oo oft = tee aH. Re SUSE -=- = = 00002100 
COL_COUNT= 13 00002110 
QUARTER=PRINT_LINE $ Pe * ~ 00002120 
J1= QUARTER-LER HEAD ING $ 00002130 
J2= QUARTER-33 00002140 
IF JOp=? LEFT® THEN fe 00002150 
mia fete mar eee OU ART ERI 15 e aot ~ 00002140 
PG_LL_LOR_R=935 00002179 
i : TOPHtRITEts on002149 
ENN $ 00002190 
ELSE Os ~ 00002200 
QUARTER=9 $ 00002210 
SSS eee ee tie ee PG OL IR Re 2S re SHURE 8 Ge Eieigats a east aenatis Soe Sot ee OOOOZ 2A) 
TOP=tLEFT SS 0000223206 
ESE, At: SP ENES ; ~ ENDS ; -00002240 
OPEN FILE(PERSAN) RECORD INPUT TITLE(SRTOUT") § 00002250 
“OPEN FILE( AUT) PRINT PAGESTZE(LEN_PAGE)3$ ; -00002260 
PUT FILE(QUT) PAGE ENITCINDEX_PAGE sHEAND ING) (SKIP, CCLUEN(PG_ tL. —OR, ler taronneee () 
aan ng SK EP (OO) COLUMN (QUARTER) > A(LEN HEADING) )32 =~: ° ee “00002280 
PUT FILE(OUT) LINE CINITIAL_LINE) ENDIT(C*PAGE® DD JTI= 7 TO # _cOLs)) 00002290 
eee ot EX EMARGINGET) 9A 04992 CXC(MARGINGTIM“1LI9 A043 (0 c vse JYON02300 
“ON ENDPAGE(QUT) SEGINS 00002310 
soe PO T=1 TO LEN _PAGE-INITIAL_LINES Rem S - 00002320 
ron FILE (UT) FD IT (PRINTER_ PAGE(T)) (SKIP 2A)$ 60002330 
err me ert Ng ee 7 ee Satara Seana tet hares 00002340 
INDEX _PAGE INDEX. PAGE+13 00002350 
“ee ‘PRINTER, PAGE ale eee 7 00002360 
PAGE TOTAL=0% 00002370 
ceoeeesees TR -TOP= "LEFT' THEN 103 ee pean a oe ee «tae a (Se. We 00002389 
THP=IRITENS 00002390 
pa tn ne roe: PELL ARR SO ge no aa en tree ee ms OOOO 2400 
QUARTER= HJL5 JONN 2410 
Be ee See are — ENDS ; amas oe ~= “90002420 
ELSE DOs - 00002430 
Ree Seen Regret eet ~PG_L_DR_R=J23 hte ae ~Q0002440 
QUARTER=93 60002450 
a ee a ee a Tet =—TeaP= t L E FT t $3 ree ne ee ee ern ee aketediehen iicienha --=— V0002460- 
END $ 00002470 
tome TREO LEN -PAGE<=66 THEN PUT FILE(ruUuT) PAGES 00002480 
PUT FILF (CUT) PASE LINE (2)3 00002490 
Q 
ERIC 


SKIPPED RETWEEN VT# AND EO00001880 


125. 


PUT FILF(QUT) FDITCINDEX_PAGE,HEANING, 00002500 

TPERSONAL AND INSTITUTIONAL AUTHOR INDEX', 0002810 

('PAGE' 9 T1=1 TA 4_COLS)) (COLUMN (PG_L_OR_R), GONN252N 

F(3)sSKIP (0) sCOLUNN(OUARTER) sACLEM AHEADING Vy anon2san 
a STP (DS. - ~~ 900N2540 | 


X (PRINT LINE /2=20) 4 A(39) SKIP (3) 9X (HARGINT) y 00002850 
Al4)92 (X{MARGINALENGTH(COL_SPACE)-1)9A(4)))3 OAND24560 


COL_CCUNT=13 00002570 
ce te eee Se ENT PAL. L INRSNEX . INT TIALS ee “= 90N02520 
(ENN: 00002590 
“AIN-COMVERS TON: BEGIN? a : ; . Aare soem sm m= AQOOZEON 
PUT FILE(SYSPRINT) LISTi*** CONVERSION F CR ce RECE ',RUF2," fk) 00902610 
“-~ GO TO IMs 00002620 
END$ : 900026320 
ON ENDFILE(PERSNM) REGINS 00902640 
SIGNAL ENDPAGE (OUT) ; 900024650 
een TO PINES -o= si seen te coed Semana ie IM mie) 4 
ENN $ 00002470 
IN: READ FILE( PERSON) INTO(BUF2)3 00002680 
LNA=0O3 NNNON 2490 
GET STRING(BUF2) ENIT(MAME,VT#,EN#,RESUME_PGyNATE,TITLE_LENeTITLE) 009092700 
(A0132)4A(10)¢A120),A(4) ,A(2)5F (2) sACTITLE_LEN)) $ 00002710 
——~ FE-SHORT EN AND STARE AUTHOR INFORMATION: FOR ANNUAL Sf cos coer 900002720 
AUTHOROUTS MANE TIMATELISURSTROVT#,453) LISUBSTRIVT#,893)3 00002730 
“PUT FILECANPRT) ENITCAUTHOROUT ) (SKIP 4X(2) 9A) NONN2 74 
WRITE FILFE(ANMUAL) FROM (ALUITHORQUT) ; 90002750 
IF NAME=PREVIOUS THEN GO TO VTLED$ 00090274N 
PREV IQUS= NAME 000092770 
~~ ENA= 13° peeerenres pate * Sneed dite ah ee ade ee PS duit See go aaa eal eae Boake eet seeeteee eens %, ee & O0NNn? THO 
AUTHOR_ ARRAY (LNA)=SKIP LINE 5 00002790 
pe on002800 
BREAK NAME U® FOR PRINT 00002810 
ate 25 Sy o0n02820 
ON J=MARGINy 2% MAPG IN- 7 J4MARGIN~ Tp J#MARGIN-TyJ4+MARGINGTS 9000283N 
Fa = NAS LNA ees ees Sere ee A NANA AAT 
_ SUBNAME= SUBSTR (NAME, J—MARGINGL MARGIN) 3 I=03 ON0N2A50 
oe "OTF SURSTRISUPRNAMEMARGIN,1)3=" § THEN 093 00002 F6N 
DQ T=1 TO MARGINe1 35 OOON2ZRTO 
PEERS eile me IF SUBSTR(SUBMAME »MARGIN-I,1)=* * THEN GO TO BREAKS 00002 8AN 
END: o0nn2Ren 
mom = PUT ETST Ct AUTHOR NAME IS" HRONG 4 by MAME, Otek - VTH m= §gVT#Y 3°" 00002ER0 
END; 000N2¢10 
“BREAK? SUBNAME=SUBSTR (SUBNAME +1 »MARGIN-T) 3 oa - - 00002920 
K= INDEX(SUBNAME,!' "75 , 00002930 
ets ees TE K=2 THEN GA TA VTLEDs i ia a ~ 00002940 
IF K=O THEN K=MARGINGT 5 00002950 
anne PUT STRING IONE | TNE) -EDIT (SURNAME ) CACK) ) $n ee tre eet emer rte OOO ROBO: 
AUTHOR_ ARRAY (LNA )= FONE _LINES 00002970 
aieitnd hott aierec uate END3 te ~is Ss : aide jes ph o 2 hs Moe Kedaqie ace ke mews @: 4 sos : 00002980 
VT_EN: LN_COL=03 00002990 
veoeee TF LNA>O FHEN LNA=LNA-13 ai a ee eae * 00003000 
. se 00003010 
amin EE LD: STRING FOR SVT" EX RESUME PGs “LINE et sretreemeeetine ee BOOKS N 20 
. %/ 00003030 
wren PUT STRING(NNE_LIME) EDIT (VT#,ED#,RESUMNE_PG)(A(1G),X{(VT_ED_SKIP) 00003040 
. 28 (20) +X (4 ARG IN- ~BI-VTLED_SKIP) sA(4)) 5 00003050 
Peete: Ne COU CN OC Lets EEE EES AOE ED 
‘ CHAR_COL (LN_COL J=OME_LINES 00003070 
PT PTE EN MA RG IN THEN ite |= Apt eee Os NRA 
; . PUT STRING(ONE_LINE) EDIT(TITLE} (X(2),A)3 00993090 
ae wwe soe EAL COLE LN_COL +4135 a cee aes . - tre eee ee we tee ae ane eee 00003100 
CHAR_COL (LN_COL) =ONE_LINE? 00003110 


. 4) 
ERIC. 
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GO TN IN1; 90003 20 

ENN: 90007 39 

=MARGIN=—23$ 00003249 

ti COOO3L5.) 

ma- BREAK UP TITLE ALLOW MAXIMUM OF 14 LINES Be SNE ore Sa Se - 00003160 
ped 00003176 

noses “ DO JEKys DAK=T yg JtK—-Ty JtK~—1 9 JtK—1 g GtK—1y JtK—1T Ut Kay JHK— 1 SEK HT St) -TCOONZI PF 
es Jt K-LeJtK-T eS tK-13 900031°% 

IF FITLE_LLEN<=J THEN ON5 z = = - $0003200 

PUT STRING WIE. LINE) FNITCSUBSTRIT= TLEsJ-K+1, TITLE ALEN= KI) (X12) +1 200003210 

sown oe EAE COLELA_ COL 415 aad “90003229 
CHAR_C AL (LE _LCOLDSHORE_LUIME § 00003239 

GO TO IN1$ ; 09003240 

ENN: . 00003259 

OR JE TITLFELLEN<J-K+1 THEN GO TO IN1$ : 00003260 
L4AB1: NN I= TOA K-13 000032749 
I SIBSTRITITLE d—-T ol Et PP SUBSTROITITLEs J-Ty1)='-' THEN DOS - ~§OON32RN 
PUT STRING (CME_LIMF) FOIT(SUBSTR(TITLEsJ-K4+1 9 K— V(X02) 9A) 000032099 

PM _CAL=LM_COL+13 ; 00003300 
CHAR_COL (LN_COL)=EOMF_LLIMEs 00003319 

GO TO NEXTJ: FRD LABLS ; 00003220 

PUT LISTC'TITLE enn eTITLEs te YT = tyVvTiys 90003330 

——---- NEXT t-ENNS ‘ os Geet Som, Bok douihe agg Seeeere Ge Seon Wee. Teas == 90NN3 340 
IN1: NEW BLOCK= PAGE. TOTAL+LN —COL+LMA$ 00003350 

f% : oe ate atts ‘000033690 
‘FILL IN PRINTER PAGE 000033790 

io oe ts 00003380 

IF NEW RLOCK >LEN_PAGE-INITIAL_LINE THEN DO; 00003399 

ana me ae ee TE COLLCOUNT=1 THEN ON T=PAGE_TOTAL + 1 TN LEN_ PAGE3$~ 0003400 
PRINTER _PAGE (I) =PRINTFR_ PAGE (IVP ESKIPL LINEs 00003419 

SRE AE ee mee Bes : END $ 00003429 
ELSE DO I=PAGE_TOTAL + 1 TO LEN_PAGE$ 90003429 

=. PRINTER_PAGE (1) =PRINTER_PAGE(I}) | ICOL_SPACE]ISKIP_LLINE$S 00003440 

case. 00003450 

ims rr ae a os en cosine sn oneeetcnt te hi) ome ramen Geen E Sm as -COL_COUNT=COL_CNUNT+413 tot ste oe 0003469 
IF enk _COUNT># _COALS THEN SIGNAL 0n0n0347N 

REE Eo. et tas = SDMA MEE OB ENNPAGECOUT) ¢ - 00003480 

IF LNA= O THEN DQ; 09003490 

te, Eras EY ; aie Pe ; : PAGE_TOTAL=13 00003500 
IF COL_CNUNT=1 THEN 00003510 

Senta St i a ee ees See ee peste serine epee ERR oe - PRINTER_PAGE(1)=PRINTER_PAGE(1) 4100003520 
, . SKIP —L INES 60003530 

. ; PRINTER ” PAGE CL) = PRINTER. PAGE(1) 00003550 
SEES RASS ghee eine scars a8 ; : : ane : 11 COL_SPACEIISKIP_. LINES ~- - 960003560 
ENDs 00003570 
eeweet ne eee Age Aah ee eoRee enamine om + mmm tet! © mmm s tee mentee st te ow oa) ee hese ‘ wae tare wee wee its E LS E PAGE=TOTA L=03 +e om 6 te gee -000035R80 . 

END $ ; 00903590 

TI=PAGE_TOTALS Doser wer se sme = == 9003600 

. IF LNAD>O THEN 99 IT=1 TO LNA 00003610 

spelen TEMEe Spreets Geeresnia:  S ; TI=PAGE_TOTAL+t+I5 : - 00003620 
j IF col _COUNT=1 THEN PRINTER ~PAGE (IT )=PRINTER_ PAGE (IT) 00003630 
nt ere eee me EP AUTHOR_ARRAY(I) 3 ELSE - PSPS 2 ~ = "(0003640 
, . FRINTEE _PAGE (II) =PRINTER_| PAGE (TT) [1 COL_ SPACEI| 00003650 
Se aaa a a oe ~ AUTHOR_ARRAY(1)3 me ~ = 90003660 
; END$ - 00003670 
is ee ee ar ase a) . . ~ * 00 T=1 TO LN_COLS; as somn se - Fe ee Wil Ree ” ery « “ 00003629 
‘ TI=FI+13 00003690 
aa PF -COLLCOUNT=1 THEN PRINTER ZPAGE (IIT Y=PRINTERL -PAGEC IfF > ~~ 00003700: 

: PICHAR_COL (13 ELSE 00003710 
sO RURS I ecg inemate ee ere ies Nerves a EE PRINTER_PAGE (II) =PRINTER_PAGE(I1) | |}COL_SPACE | I 00003729 


CHAR_COL(1)3 00003739 


> oe of ; ae 
ENC 0 156 


127. 
END $ 
PAGE_TOTA4L=I11: 
GQ TO INS 
FINT: CLOS® FILECPERSOM), FILE( OUT 13 


BUTE ILE(S SPRINT) DATA CINDEX_P AGE) Se tes «2 ate) Lee wee 90003789 
a 00003799 

ye END NF LIST ROUTINE */ 00003800 

pe ef 00003810 
mM ee oe 2 5 SE Gee 00003820 
~ "END FIRSTS 00003230 


ERIC 
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00003749 
00003759 
00003765 
QN0032770 
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SUPPORTING SERVICES QUARTERLY 


[Pe REE HE BE ME EME Be ae ae he ae he este abe ake os ae ae ae ae oe i ene ie a a 2 Ree os a ae ne as Ra he Be a fee He he Se ae ake Se ae Be ak ae Be Be =/OO0000LO 

[3s =sonddgnoag2zn 

J=- QUARTERLY SUPPHAETING SERVICES */N00N0030 

= IN n FE XxX PR 0 G RAN =/O000R04N 

pe ee iat we na ee ee ee ee EV ONNONLSO 

~ : */0000004N 

/* PURPOSE: THF PURPNSE NF THIS PROGRAM IS TO PRODUCE THE x/NNNNN007TN 

/* QUARTERLY SUPPORTING SERVICES INDEX FOR BOTH AIM OR */G00000R0 

ce ft sO ARMS)©6oTHE MAIN IN©UT IS THE MASTER TAPE PATA SET FOR e7NONANAEN 

/% THE QUAPTER. A PISK SUBSET FILE IS CREATED FROM */N0000109% 

open MASTER ANN THEN THE FILE IS SORTED TO ANATHER DISK ~ — ¥*/00N00119 

Ls FILF USTIMG THE 360 SOPT/MERGE. THE INDEX PRINTOUT */00000120 

|. COMES FRANK PRINTING THE SORTED FILE IN A FORMAT */OON0NL20 

[8 SPECIFIEN BY THE VOCATIONAL CENTER ON AN OUTPUT FILE, */00000140 

oe ae WHICH 1S LATER LISTER OM THE 360/59 FAR UPPER AND */000N0150 

fs LOWER CASE PRINTING. THE SORTED FILE IS SHORTENED */00000160 

fe AND SAVED AN TAPE FOR THE -ANNAUL INDEXS: - 0 occ t cee ooo J 00000170 

‘* *x/Q0000180 

-/% DEFINITION OF VARTARLES: © */I000014N 

* 1. AFIFLND -—= CONVERTED 3-NDIGIT SUS~CODE. */00000200 

J 2. BT --— DESIGNATES BEGIN SHORT TITLE SEGMENT CRARACTER (<2 */00090210 

* 3. COL -—- NUMRFP OE COLUMNS ON AN INDEX PRINTOUT PAGE. x/00N00220 

fem oa DUMMY == STRING USEN TO READ ANO-WRITE FILES. wee ee tt £00002 3N 

st 5. ED-NO =-— ACCESSION NUMBER. */00000240 

*% >: 6. ET —~ DFSIGNATES ENN SHORT TITLE SEGMENT CHARACTER (>). */00000280 

= 7. FIELD -—- NRIGINAL SUB-CQOE FROM KASTER IM 2-OIGIT FORM. */00000260 

* oo B. HEAD -- STRING COMTAINING ATM OR ARM, SEASON, AND YEAR. */00000270 

* IT APPEARS ON THE LINE WITH THE INDEX POGE NUMRER, */O000N2R0 

a een BUT AT OPPOSITE SIDES OF THE PAGE. ~~ trom RZ OONONZ90 

1% 9. IHESRTA -= CALL TN SORT/MERGEe */O00NNN300 

“fe =- 10. LINERL -- TITLE PAGF LINE NUMBER ON WHICH PAGE NUMBER AND */00000210 

/* —-HFAN~ APPEAR. */00000320 

wo 21. LINEH2 -~ SAMF AS LINEH] BUT FOR SUCCEEDING PAGE */00000330 

1% 126 LINEP1 -~ TITLE PAGE LINE NUMBER OM WHICH THE ned "PAGE! */ON00N0340 

eof en ee et APPEARS ARQVE EACH COLUMN. =~ &/00000350 

1% 136 LINEP2 --— SAMF AS LINEP1 BUT FOR SUCCERDING PAGES. */000G0360 

foo 14. LIMBT -- LIME NUMBER ON ALL PAGES RUT TITLE PAGE ON WHICH */00000370 

1 THF TITLR AF THE INDEX APPEARS. THERE IS NO TITLE*/00000380 

nr A: toa ON THE FIRST PAGE. */0N0000390 

1 15. LENTH -- DATA LENGTHS READ FROM A MASTER RECORD AND USED */00000400 

cata onnee eet eee EN THE POSITIONING: AND RETRIEVING OF NEEDED DATA.” */N000N0410 

of 166 LH ~=- LENGTH MF VARIABLE —HEAND-. #/00000420 

foo 17. LTH ~~ LENGTH OF VARIABLE ~TITL-- eS - */00000439 

* 18. L_-TITLE -- LENGTH OF VARIABLE -TITLE~. */00000440 

* ~19. MARG <-— LEFT-HAND MARGIN OF THE INDEX PAGE. pe */00000450 

% 20. MASTER == NAME OF MASTER TAPE. */00000460 

OMG ~—- ARRAY OF COLUMN: MARGINS COUNTED FROM CAL UMN- 24-77 */ 00000470 

7% 22.e NUMB -- NATA LENGTH READ FROM MASTER AND USED IN THE */00000480 

te cee ete Ss PBS ITIONING OF AND RETRIEVING NF OTHER PATA FRAM-- */00000490 

s% MASTER. */00000500 

$e . #3, ONE -- SUR-CNDE OF '1' REPRESENTING "TECHNICAL FEDUCATION'. */00000510 

1% 24. PAGE --— PAGE NUMBER MF INDEX PRINTOUT. */00000520 

pe 2 5 PAGE NO -=— RESUME: PAGE FROM -MASTER RECARD en mtr 00000530 

[ss 266 PUBLDATE -- PUBLICATION QATE FROM MASTER RECORD, */N0000S40 

epee De QUE ~~ INDICATES WHETAER THE PAGE NUMBER ON THE TITLE PAGE */Q0000550 

1% IS IN THE LEFT ¢('L') OR RIGHT-HAND (*R*) MARGIN, */00000560 

ef Re Castes dei - IT REVERSES ITSSLF FOR SUCCEEDING PAGES AND -HEAD~ »*/00000570 

; * TS ALWAYS ON THE QPPOSITE SIDE. */O0000580 
yy & — 2 8 -RETCDE- <= CONE: RETURMED BY SORT; *#0% IS: GOOD-AND-416% -PS-—-—%*/00000590 - 

/% RAN « */00000600 

fe --- 29. REIELND -= NEFINES THE INPUT RECORDS FOR SORT. - -- ++ = += 9/00000610 

(rE 30. SFIELD --— NEFINES WHAT PART(S) OF THE RECORDS WE ARE */00000620 


Loy 


SNS oe | 
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# /00000630 
*/00000640 
*/00000650 
*/Q0000640 
*/00000670 
*/00000680 
*/0000N690 
*/00000700 


- x/00000710 


*/0009000729 
*/00000730 ~ 
*/00000740 
*/00000750 
*/00000760 
*/O0C000770 
*/0000078&0 


-*/00000790 


=/O0000890 
* 700000810 
*/00000820 
* /O00NN R30 
*/N0000840 
*/ONN00NR5Q 
*/O0000R6N 
%*%/00000R870 
*/N00008F0 
*/ON0NNNBIN 
*/O0N00G900 
*/ONO0NN9LN 
*/00000920 
*/N00NN93N 
*/00000e40 
*x/NN000859 
*/0000N940 


- */000009TO 


*/NONONNGAN 
*x/NNONNISN 
#*/ON0N01NCO 
*/O00001010 
*#/00001020 


-% 700001030 


¥*/00001040 
*/00001050 
*/00001069 
*/00001070 


% SORTING UNDER. ; 2 ; 
* 31. SZ —- RIGHT-HAND MARGIN FOR INDEX PRINT-OUT PAGE. 
1 32. SORTIM --— NAME OS UMSARTEN DISK SUBSET FILE. 
#8 33. SORTOUT -—- "Aaé= OF SORTED DISK SUBSET FILE. 
mn fo BEL SPACE -- NUBSER OF SPACES LEFT BETH EEN YT AND -€f-° NUMRER --~ 
/* WHENEVER THEY ARE PRINTED IN THE INDEX, 
* 35. SUM1 -— NUMBER MF POSITIONS ON A MASTER RECORD RETWEEN 
/* RESUME PAGE AND TITLE. 
1% 36. SUM2 -- NUMBER QF POSITIONS ON A MASTER RECORD RETWEEN- : 
/* TITLE ANN PURLICATION NATE. 
a mye BIS STE -- MAXIMUM LENGTH OF INNMEX PRINT PAGE. 777 Steet a eee 
i 38. TITL -~ TITLE OF THE INDEX. 
/% 39. TITLE -- TITLE OF A NOCUMNENT FROM A MASTER RECORD. 
1% 40.6 TLE -- ARRAY OF SHORT TITLE SEGMENTS FROM THE TITLE. 
“fm 41. VTI_NO -- BOCUMENT NUMBER FROM MASTER. 
/* 42. VIOTH -- COLUMN WIDTH IM INDEX PRINTOUT. 
Peo 43 - BLK m= MUMRBER- OF PTECES OF LENGTH -WIODTH~ INTO-WHICH™A-- - 
SUB-CONS NANE IFS BROKEN. 
* 44. BLKT -- NUMBER OF PLECFS OF LENGTH -WIOTH-2-— INTO WHICH A 
/* : TITLES IS RROKEN. 
/* 45~ CONE_NO —~ CHRRENT SUR-CNOFE BEING PRINTED IN THE INDFX. 
/* 466 COL# -- COLUMN SETUP FOR A PAGE IN THE INDEX PRINTOUT. 
Lf cee ee eee THE FIRST SUBSCRIPT IS -THE -COLUMN NUMBER ON THE 
/* PAGE, AND THE SECOND SURSCRIPT IS THE LINE MUMARER 
/* IN THE COLUMN. 
* 47. FFEIELD -- CONVERTED SUB-CONE ON SUBSET FILE. 
1% 48. FLD -~ ARRAY OF SUB-CONE NAMES. 
‘* 496 IMAX -—— NUMBER OF COLUMNS PLUS SNF. 
wey tem BQS- IMP m= INDICATES START OF NEW SUR-CNDE IN INDEX PRINTOUT «” 
/* Sl. IND -~ COLUMN MUMBER BEING FILLED IN AN INDEX PAGE. 
Co Pe 52. KNT -- NUMRBE" OF LINES IN A BLOCK OF DATA. TT INCLUDES 
/*8 ONE LINE FOR VT NOer EM NOws AND RESUME PAGE: PLUS 
~ /% LINES FOR THE TITLE GIVEN BY ~ALKT=$ PLUS, IF 
/* JMP = 1, LINES FOR THE NEW SUB-CONF NAME GIVEN 
oe mf Men ee ee BY RLK + 1 C2 TS FAR-THE BLAMK- LINE BETWEEN (weer rtm 
has : DIFFERENT SUB-CODF SECTIONS). 
fis 53. LN -~ LINE NUMRER ON AN INDEX PAGE BEING FILLED. : : 
1% (1 < LN < SIZE) THIS IS A CHECK TO SAKE SURE WE O09 
so PR NOT EXCEFD THE PAGE LENGTH.’ = 
ss 54. NN -~ LINE NUMBER IN A COLUMN CURRENTLY BEING FILLED. 
mf hrc me oo THIS TS A SURSCRIPT FOR = COLE 6 cet er eens eer 
; /* 55. OUTS -—- OUTPUT FILE FOR INDEX PRINTOUT. 
co PR 66. PC ~~ PIECES OF BROKEN UP SUR-CNDE NAME. 
/* 57. PUB -- YEAR PART OF PUBLICATION DATE. 
fe 58. SKPH -—— COLUMN “HERE -HEAD- I5 BEGUN TO BE PRINTED. 
/* 59. SKPP -- COLUMN IN WHICH THE PAGE NUMBER PRINTING 1S STARTED*¥/900010280 


at 60 0 SUB MO NAME OF TAPE ~ WHERE SHORTENED RECORDS ARE -SAVED. © - 


1% 6le TLP -- PIECES OF BROKEN UP TITLE. */00001100 
Sete eto Jae - he ee * - . - . - -- . . -—— - ee eee ae . *f/000011190 
7% ,NPUT TO THE PROGRAM: */00001120 
=e MASTER TAPE DATA SET 0 - croc sas - #/00001130 ° 
s* NEFINED BY OM CARD IN THE JCLe */00001140 
ee [x%---- = SYS [Mey INPUT . ON “CAROS: emt eee . eek ences wee cme ee ee mete etmem seme sees em scene mem om mere */JONONL 150 _ 
* THIS INPUT IS ONE CONTINUOUS STREAM ON CARDS. THE VALUES */00001160 
“fe OF THE ‘VARIABLES LISTED BELOW ARE THE DATA ON THE CARDS. ~ */00001170 
/% THE ORDER OF THESE VARIABLES IS THEIR ORDER ON THE CARDS */0090118C 
y= AS WELL? AND THE FORMAT LISTED BELOW FOLLOWS WHAT IS ON THE */00001190 
/* CARDS TNO. THESE VARIABLES ARE DEFINED IN THE "DEFINITION  */00001200 
comes} aaa SECTION ABOVE» AND~THEIR: VALUES -CAN- BE RECEI VED-FROM~THE-~———*/700001210~ 
se VOCATIONAL CENTER OR THE TYPED WRITE-UP. */00001220 
ao Je tee -PAGE- F(4,0) i ee alee ~~ *£00001230 - 
* -SIZE- F(4,0) */00001240 


on“) 


*/00061090 - 


131. 
[fe ke 4 —WIDTH- £(4,0) */00001250 


/% —MARG- F(4,0) */00001260 

- * es 7 og = (4,0) */09001279 

s* -LINER1- F(4,0) */00001270 
fia ANEP Te! SA UG yO So Se nim enk ers eee eee ey ODN er 

/* -LINEH2- F(4,0) */90001300 

fect a + EL INET~ =(4,0) : 3 */00001310 

* —~LINEP2- F(4,0) #/00001320 

se Ja ee eine +S PACE F(4,0) ; ee 3 */00001330 

* -COL- F(4,0) #/00001340 
aeamne 2, meal Hones « = * “€C0LY #1 lagO) ee Bee Ske Sonne toners SOON LAO 
* -LTH- F(4,0) */00001360 

fee ee eh meTITL A(LTH) */00001370 

* ~LH- Fl4,0) */00001380 

a - + =HEAD- ACLH) */00001390 

* -QUE- A(1) */00001400 
Gf 8p nn ee re nr me nn etn ne een mmr OOOO L SLO © 

# SPECIAL MOTE: */00001420 

s --- THE QUTPUT FILE SHOULD BE THE PRINTER UNTIL A GOND INDEX */00001430 

ha PRINTOUT 1S CBRTATMEN AND THE VOCATIONAL CENTER HAS APPROVED */00001440 

* ~ - IT. THEN THE MPUTPUT FILE CAN 8& CHANGED TO A TAPE AND ONCE */00001450 

* THE TAPE IS LISTEN ON THE 360/50 WITH THE TN CHAIN, WE HAVE = */00001440 

———f #-— THE UPPER: AND LEER CASE LETTERS IN THE PRINTOUT. ©) om on 400001470 

/* */00001480 

eesti [Fe Pe OR ER e AH A  ae  D a  N eo ee ae oeaeoe aea e a a  eeee ea ekeaeae o ak He a aE HH ae vea / OOOO 1490 

00001500 

np SE 00001510 

VOC IND: " PROCEDURE OPTIONS (MAIND 00001520 

ne ete —— f} ECt ARE- ee ee 2 -- ae) ar 8 ee aa emieanes 2008 @ @mmeerscwmwens =a i te mers wee cm sseme te Faw -NONOL 520 

LINEH1 FIXED BINARY (3190), ; 00001540 

L 00001550 

FIXED BINARY (3110) 000015450 

- AFIELD 00001579 

CHARACTER (3 00001580 

Fo eee ee cu ARACTER (1) INT TIAL S161) go ooo a= -00001590 

CaL 0000.1600 

soe BEXED: RINARY (3150) o = 53 00001610 

DUMMY CHARACTER (3736) VARYING? 00001620 

: Piper « ED_NO CHARACTER (20), 00001630 
ET (CHARACTER (1) INITIAL (>? )5 00001640 

ee TEL Deore . apeees shaate oe coin enn tne OOO LESO 
CHARACTER (2), 90001660 

cemtine sire oO EAD CHARACTER 413) VARYING, - “= 90001670 

I 90001680 

seees comes + BIXED RIMARY (3190), “~~ 90001690 

IHESRTA ENTRY (CHARACTER (45) sCHARACTER | (33), 00001700 
wn ee ee FIXED BINARY (31,0) FIT XED BINARY: (15,0)} 9° ~00001710- 

J 00001720 

wet wees cee os BIXED BINARY (03190), (0 Oe Hip ake Hae ceiee o ceeee ee 9 OOOOLTEO 
L INEH2 FIXEN BINARY (31,0), 00001740 

- LINEPL FIXED BINARY (31,0)5 oe 00001750 

. LINEP2 FIXED BINARY (31,0), 00001760 
tet ENE Ta ee BE XED: BINARY -€31 90) 9m 000017 

LENTH(10) FIXED BINARY (31,0), 00001720 

weve tee tee eee LHS ee FIXED BINARY €3190), © -- 90001790 

LTH . 00001200 

b Reg net ee Stee FIXED RINARY (31,40), OY a eb Se ~~ -90001810 
LLTITLE FIXED BINARY (3150), 00001820 
see M- a nt eee oe ee, pene me me nee 5 ee ee te te re ee mere wenn er ere N00 1830°-- 

FIXED BINARY (3190), | 00001840 

- ty eee ae MAG FIXED BINARY (3150). © <6 eeteere me o = = 0001850 


MASTER . 00001860 


enn SRYELD 


s 
9 


132. 


FILE SEQUENTIAL UNBUFFERED INPUT RECORD, 


MG (3) FIXED BINARY (313,0})¢ 
N 


FIXED BINARY (31,0)¢% 


SUML 

FIXED BINARY (3190)% 
SUM2 

PISS paeeeey (3150)% 


FIXED RINARY (31,0) 


ween PEN FILE: (MASTER) 9° 0 oro meter 
FILE (ERRE) OUTPUT PRINT “STREAM LINESTZE 


THE 


- 7 READ_MASTER: * 
READ FILE (MASTER) 


’ 


ON ENDFILE 


FILE {SARTIN) OUTPUTS 


EEDA D's 


ae NE ENDE X (DUMMY EPSP meen 
IF N= 0 


“THEN 0O$ -- 


VT_NO = SUBSTR(DUMMY,1,10) 35 


PUT FILE (ERRE} EDIT 


('MISSING DIVIDER IN DON 


(MASTER) GO TO SORTS 


Cn SKIP (299 A128 AC 1OV IS 


- 


o_ 
ERIC 


GO TO READ aMASTERS 


es ENDS 


INTO “(uN 


~NUMB Too “FIXED RINARY €31:0), 
ONE 
CHARACTER (1), 
PAGE 
FIXED BINARY (31,0) 
PAGE_NO CHARACTER (4)+ 
- PUBLDATE ~ = a aes 
~ “CHARACTER (7) 
QUE CHARACTER (1), 
RETCDE 
FIXED RINARY (1540), 
RFIELN CHARACTER (33)5 
“CHARACTER (45) 900 > 
SIZE 
FIXED BINARY (3190) 
SORTIN 
FILE SFOUENTIAL RECORD, 
SORTOUT 
FILE SFQUENTIAL RECORD, - >> 
SPACE FIXED BINARY (3170)y 


Sze. ~ - FIXED BINARY (31¢9}9° °° >> 
TITL 
CHARACTER (50) VARYING; 
TITLE CHARACTER (396) 
- TLE(3) 
CHARACTER eae VARYING 
-VTLNOQ- >: Mis bbars hetee ces 
CHARACTFR (10) VARYING, 
~ WIOTH 


VARYING, 


0€901870 
00001880 
00001890 
00001900 
“90001910 
00001920 
00001930 
90001940 

- 00001950 
000019460 
“-=G001974 
00001980 
90001990 
00002000 
00002010 
90002020 


Sse GOH Z080 


oneness seme 9002150 - 


2575 


',VT_NO) 


perenne nn ee een 090002450 - 


00002040 

00602050 

05002060 
- 00002070 
00002080 
000020290 
00002100 
00002110 
00002120 
00002130 
00002140 


t 
' 


00002160 
00002170 
00002180 
--- 00002190 
000022nN0 


------- 90002210 - 


00002220 
- 00002230 
00002240 
00002250 
0n002260 


00002280 
-000022950 
00002300 
~ 00002310 
00002320 


*/00002340 
‘00002350 
09002360 

- §0002370 
00002380 


-~--—---- 90002390 


00002400 
--- 00002410 
00002420 
-00002430 
00002440 


-00002460 
*- 00002470 
00002480 


“00002270 - 


f*-—READ-A-RECORD - -FRAM THE- MASTER TAPE~-DATA SET.-~FIND -THE-DIVIDER-IN- 00002330 - 


i 


+ . . 1 5 
iegiu. Wis 33 00002490 


7 FINN THE NUMBER OF POSITIONS ON THE TAPE BETWEEN THE RESUME PAGE 00002506 
- sos) AND THE TITLE. STORE THIS VAL'!IE IN -SUM1-. PICK UP THE TITLE 00002510 
LENGTH PROn Ens */00002520 
ir sare eae eam SRN REET RS RS eR eS pire tee BRR are oe eae ae ~~ 90002530- 
00002540 
SUM1 = 03 . , , 00002550 
GET STRING (NUMFPY) EDIT (NUMB,y(LENTH(1I) OO IT = 1 TO NUMB), 00002560 
L_TITLE) (X€N41)9F(4)5 (NUMBEL) F14))3 = ae “= - 90002570 
N= N+ 9 + (NUMR * 4)5 00002580 
= aa ae TF ONUMB-= O- THEN DOS Pig AS ae AS Ae Reais. soe memes catinecrimss etme OOO Z S90 
; LOOP1: DO I = 1 TO NUMBS 00002600 
eee Oo SUM1 = SUM1 + LENTH(1I)3$ 00002610 
END LONP1$ 00002620 
ates = oa ENDS : 00002630 
; ‘ 00002640 
cia a ue op owas oes. St as a wai as Sse oes wa ete et i ne ee ee 90002650- 
7* FIND THE NUMAER OF POSITIONS ON THE TAPE BETWEEN THE TITLE AND 00002660 
verse THE PUBLICATION DATE. STORE THIS VALUE IN -~SUM2-. */00002670 
00002680 
. ee. A > us - 00002690 
ae = 03 00002700 
ODA s = 00 SS 0 8s ee et ee re ieee eee rs a ee 00021 10" 
GET STRING (DUMMY) EDIT (NUMB, (LENTHIT) D0) [= t TO NUMB)) 00002720 
CXIN DSF C4)5 (MUNB) F(4)75 ? 00002730 
N=N + 4 + (4 * NUMB)3$ 00002740 
IF NUMB == O THEN DO5 ; 00002750 
INNER: DO L = 1 TO NUMRS 00002760 
SS SS HS Ne ete ee che: SUID = SUM2 sO LENT L Pg Sesh Se OO OO2 770 
END INNERS$ 00002780 
= END s$ 00002790 
END LOOP2: 00nN2200 
~LOOP3: AN IT = 1 TN &$ a : : ~ = 00002810 
GET STRING (DUMMY } FOIT (NUM) 00002820 
en eX (N) ’ F(4))3 ib. sbiten whe Snares, co ee tee tee cee e ean anne aemerees  YOYNOZRZ0- 
SUM2 = SUM2 + RUNES 00002840 
ta ar uae saa | “WN + 43 on ” ae . * - +e ese - “ ws Os aris 00007850 
END LOOP3: . 00002860 
St ; ; : ; ; : a 00002870 
00002880 
oop NOW OWN ITH THE “ABOVE--INFORMAT ION, “RETRIEVE THE NECESSARY DATA~FROM 00002890 - 
MASTER. */00002900 
Per ee rs ee tee oe ae . - - . - cr me . i ‘00002910 
- 00002920 
“GET STRING (DUMMY) EDIT (VTLNO,FIELD,ONE, EO_NO,PAGE_ND, TITLE, 00002930 
, PUB_DATE ) 00002940 
—€A11079 X05) sA(2)gAt199X 199, A120), X17) 9 AC4) pXESUML) A(LiTITLEY00002950 - 
eX (SUM2)2A(71)5 ; 00002960 
S Recess es DUT SKIP (4) = : 7 aa eae ve mam=n 9002970 
PUT EDIT — NO, FIELD sONE £0. _NO,PAGE_ NO, TITLE, PUB, DATE) (Ads 09002980 
oe tw sete em . 00002990 
; 00003000 
$< fe-—-F ORM -FHE--SHORT--TITLE--FROM -THE-TAPE--TETLE--BY--CONCATENAT ING- SHORT —00003010- 
; TITLE SEGMENTS TOGETKER. A SHORT TITLE SEGMENT STARTS WITH '<! 00003029 
cose se meee AND ENDS WITH #>%. THE SHORT TITLE IS USED IN THE INDEX, ~~ 8700003030 
: , 00003040 
. I = 03 as : 00003060 
-———RET RN N= "INDEX CT ITER 9 BT Se rr rt nnn oon 0003070 - 
; M = INDEX(TITLF,ET)S 00003080 
mesa mes FE CERRO) & (M=0) THEN GO TO LOOP4S : se sername 9003090 


Te i+ 1} . | 00003100 


featiasiels Hees Y 


| ; Eaaaitey tpaieabtts Whitekie 


134. 
TLE(I) = SUBSTR(TITLEsN#1_M-N-1)3 2 2.4 ae 00003110 
IF SUBSTR(TITLFE M4151) 7= ' ' THEN TLEC(I) = TLECT) 1 00003120 
SUBSTR(TITLE,M+191)3 00003130 
TITLE = SUBSTRITITLE»M42)3 00003140 
ma GOTO CRETRNG (te ne ere re mee === 90003150 
LonP4: no J= 1 TOT: 00003160 
IF J = 1 THEN TITLE = TLE(1)3 00003170 
ELSE TITLE = TITLE Hf " * f} TLE()3 00003120 
END LOOP4: 00003190 
PUT DATA (TITLE)$ 00093200 
mete tw rm ee etme met cme ete +. + wen ee cee +e wee a3 4 otae Be esau emiaes See ~~ _ ie ate a aR i 000032710°: 
00003220 
7* CONVERT THE TWO-NIGIT SUR-CODE TO THREE DIGITS BY ADDING A ZERG 00003230 
TO THE RIGHT SIMF, (EX? 45 RECOMES 450). THEN FORM A RECORD ON 00003240 
- THE DISK SURSET FILE FOR THIS SU8-CODE. */00003250 
00003260 
enh NII te manok UT near Ayah wae eb = weet ee cee ~ oe ee seam ie user ae fo ee eee ee ees ees te ae cee ees 00003770 a. 
AFIELD = “FIELD 1h tors 00003280 
PUT STRING (DUMMY) EDIT {AF TELD»VT_NOy ED NOs PAGE_NO, PUR_DATEs 00003290 
TITLE) 00003300 
- {AN(BVgA(10) 9AL29) ALS Z AIT IG ADS o 00003310 
WRITE FILE (SORTIN) FROM (DUMMY) $ 7 00003320 
BUT DATA. [AR ERLDD $< oso~ = mote ren nee ete ee ees come te = 0.003330 - 
00003340 
oo 00003350 
/* -IF THERE IS A "1" FOR *TFCHNICAL FDUCATION! THEN CONVERT THIS 00003360 
SUB-CODE TO '495" AND MAKE A RECORD ON DISK FOR THE SUB-CODE.  %*/00003370 
00003380 
cee etcetera at mee ee dies Aca eeetienrccctaderatn fa ASE Guat wih wrt te eer ree eee = em 0003390 -- 
IF ONE = tlt 00003400 
THEN DO; 00003410 
AFIELD = '495'; 00003420 
PUT STRING (MUMMY) EDIT (AFTELD,VT_ND,ED_NO,PAGE_NO, ~ 00003430 
PUR_DATEsTITLE) 00003440 
anne ee ee (AEB) ALLO AC2Z00 ALS) ACT 9 ADS ee ee eee 00003450 ~ 
WRITE FILE (SORTIN) FROM (DUMMY) $ 00003460 
- PUT DATA (AFTIELD)$ 00003470 
ENDs 00003480 
GO TO READ_MASTER; 00003490 
00003500 
ee ete cee ere Sete ERR Hs meee aot wee ee ee A: ee ao wee even rere: tam ate eee wate ee se meter = ee remem 2 cement eee + ant Ow - 09003510 ee 
y* SORT THE DISK SUBSET FILE AND PRINT THE RETURN CODE, AN INDICAT 10N00003520 
--» OF A SUCCESSFUL SORT. = ®/00003530 
00003540 
be dee ee pe _ 00003550 
SORT! CLOSE FILE (SORTIN)» 00003560 
ee “FILE: (MASTER) $0202 eee cope es ea ee 0003570 
SFIELD = ' SMRT FIELDS=(5,3yF1yAy1197sCHyA) SI ZE=E9999 m 00003580 
wove RETELD = ' RECORD TYPE=Vy+LENGTH=(44495,50} '3 vs - 00003590 - 
CALL IHESRTA(SFIELDyRFIELD 145056 ,RETCNE)? 00003600 
PUT FILE (SYSPRINT) EDIT (*RETURN CODE = ',RETCDE) ~-- 00003610 
(SKIP(3)¢A (14) 9F (3995 00003620 
te en ae a Ne tem ee ee mente teen ne tr ee ee ree emcee ee ree nein meee mace eee recta) sens tegen 00003630 Pet 
00003640 
~f##--READ IN THE PAGE SPECIFICATIONS FOR THE INDEX PRINTOUT.- ~~ #/ 00003650 
: 00003660 
- ” ao > & meee ae . es ese ae ome ween Ae i ae ae i a a a Sees * 6 eae temnn O08 ence i “== 900003670 « 
GET FILE (SYSIN) EDIT (PAGE,SIZEsWIDTHsMARGsSZsLINEH1yLINEP1, 00003680 
mn TNE H2 9 LINET ¢ L INEP2 9 SPACE sCOLs (MG (NP DO N= -1 TO COLI LTH 4 ~~ 00003690-~ 
TITLeLHyHEAD, QUE) 00003700 
moms 2B FC) (COL) FCG), ACLTH) FCG) 9 ACLH) ACID) S 00093710 - 


164 


00003720 


H 


Biwiks : 00003730 


yx THIS BLOCK PRINTS THE INDEX ON THE OUTPUT FILE AND SHORTENS AND 00003760 
SAVES THE RECORDS ON TAPE. */00003750 
00003760 
ca cision er ies Soca aetna Rip oeareet ait SEHR Ach a cb RaeeeE ee: Hs SAE Sn Soles ee eee eee ee ee ee ne tee tet ee eT - 00003770 . 
WORK? BEGINS 00003780 
24 DECLARE ; 00093790 
BLK 900.93800 
nee FEXED RINARY. (319009 0 > e Fae as wees te + 00003810 
PLKT 00003820 
ae Se Sate PRR TNARY ISO ee ree, Seer ee ee Oo 
BREAK ENTRY ( FIXED “BINARY 131s0)99)9 00003840 
- CNDE_NO 00903850 
FIXED NECIMAL (3,0) INITIAL (999)5 00003860 
pies COLH(COL »SIZE-LINEP2-1) CHARACTER (WIOTH+3)s 00003870 
FFIELD 00003880 
ee EO HECTOR ae OP err BOON FET 
FLD (0213) - CHARACTER (50) VARYING INITIAL 00003900 
Meh 7 ("AGRICULTURAL ERUCATION', 00003910 
‘BUSINESS AND OFFICE FDUCATION', 00013920 
(MISTRIBUTIVE EDUCATION 's x 00073930 
"HEALTH OCCUPATIONS EDUCATION® » 00023940 
Si ME ECONOMICS EDUCATION Ny (so eee emer 000R: 250° 
NINDUSTRIAL ARTS EDUCATION', 00073960 
wee ie cen en te sc ss UMANPOWER ECONOMICS", ; G06 13970 
NACCUPATIONAL PSYCHOLOGY", 00C *S9R0 
'NCCUPATIONAL SOCIOLOGY's 000°'=.990 
ty oon: 900 
See RT RANE CAND INDUSTRIAL EDUCATIAN yoo ee ee = OOOCEOTO 
ml, 00004020 
“'GENERAL VOCATIONAL AND TECHNICAL EDUCATION’, 20004030 
‘TECHNICAL EDUCATION'), 00004040 
IMAX ~ 00004050 
FIXED RINARY (3190), 000n4N60 
ip ae ee FIXED BINARY: (319 O) 900 or 00004070 
IND 00004080 
FIXED RINARY (3150)+ i 0¢-004090 
K 00004100 
ae 3 FIXED RINARY (3120) - 00004110 
KK FIXED BINARY (3140) 00004120 
NT oe ee BY XED BIMARY (3290), (cor cce mote 00004130 ° 
LL FIXED BINARY (3110), 00004140 
FIXED BINARY (314075 00004160 
meee eee MINE - -PEXED BINARY (2190)+ paauniauses svete OOOOET TG 
OUTS 00004180 
rai ee an inchoate reer “FIL Es: Sofas, cafes pene. Ges: mle Seas tabs Megastar dated.e wt ee eee eee =e QOON4TSO- 
PC (14) CHARACTER (TOTHY VARYING, 00004200 
LTR tee ect sete nee oo PUR ee ee ans een ; wae ce 8 eas remanence et met eee --000042 10 
CHARACTER (2)> 00004220 
- SKPH FIXED BINARY (3190), Doe se ee = 00004230 
a SKPP FIXED BINARY (31,0), 00004240 
Bn eS Bert ne ee ve ee ee eee Seemann 8 19004250 - 
; FILE SFOUENTIAL RECORD» 00004260 
Benen oe cee TLE CEG) CHARACTER (WIDTH) VARYING, ~~ 7-007 ~~ 00004270 
. 00004280 
. - eo wm kOe ae Pea we eee ae a see 00004290 
ON ENDFILE (SORTOUT? GO TO SHOR TENS | 00004300 
a ---APEN- FILE: (SORTOUT Dy tees meee ee cee stemarnnmronn—= =~ 90004310 


FILE (OUTS) cade STREAM PRINT PAGESIZE To IeetS | 00004320 
ae Se os ~~ = 90004330 


we 


00004340 — 


136. 


fees 90004350 
/* INITIALIZE VARIARLFS FOR PRINTING INDEX. */00004360 
; 000NE276 
. 00004380 
——--BLKOT$--NO-E = 1-TA SIZFALINEP2-13° 0 a woes - 90004390 ~ 
DO J = 1 TO COL; 00004400 
gh See es : COLH(J,1) = Ff ts 00004419 
END BLKOT : 00004420 
K = PAGES ; ene 00004430 
IND =13 00004440 
au Cn ee a ae = = vo seem t= == 90004450 
LN = LINEPIS 00004460 
NN = 03 00004470 
IF QUE = 'L' THEN DOS; 00004480 
= SKPP = MARGS 00004490 
SKPH = SZ — LH + 15 00004500 
nee re re ee Se ne Sere me mt re END; e © - : - oe er er ed 00004510 
ELSE 00; 00004520. 
SKPH = MARG3 000045 30 
SKPP = 227 - 33 00004540 
END; ; ; 00004550 
: 00004560 
meee eer ee tee ee were a se fe . . + er . ee ae ee = 4m i. tease . 00004! rae) 
f* PRINT HEADING ON THe TITLE --GFe */000045A0 
oe 90004590 
: 00004600 
PUT FILE (NUTS!) EDIT ee AN) a 00004610 
(PAGE sLINE(LIMEHL) sCOLis eee! fre SKLP 10) ¢ COLUMNS ORF Ya 00004620 
a Seyeemmenttntn AEE Is “90004630 
PUT FILE (OUTS) SKIP (LINED 1-LINEHD) 5 00004640 
Les: DO r = 1 TO COL 90004650 
PUT FILE (OUTS) FOIT ('PAGE') 000044660 
ae ee -  (§Ki200) s COLUMN (NG C7)4WIDTH-1),A04))8 00004670 
END LP8&; 00004680 
eee PUT FILE (OUTS) SKIPALIS mot ms we tne teem 90004690: 
00004700 
7* READ A RECORD FROM THE SORTED MISK FILE. BREAK IT UP INTO ITS 00004720 
- PIECES OF DATA. BREAK UP THE TITLE INTO PIFCES FITTING IN A 00004730 
COLUMN OF QUTPUT. © */00004740 
Oo em mn ene oe Ne et me ne fee ctes eee ee ee ee see ee ee ee ee et ee ry ea RS Gh ok 0v00475&0- 
00004760 
~REAN? -~ READ FILE (SORTOUT) INTO (DUMMY); . ete, -  -QO0004770 
L = LENGTHIDUMMY ) § 00004780 
‘GET STRING (NUMMY) EDIT (FFIELDsVT_NO, ED_NO, PAGE_NO, PUB_LDATEs 60004790 
TITLE) 00004800 
Seinen meer E (Sys h 140) oA 120 bo AIG Pe AlT FAC GG PS ee ee ee OO NSE rN ~ 
CALL BREAK (TITLE sWIDTH-2,TLPsALKT) $ 00004820 
Whee Merde Seeley 8 — é if Base a . ie eee ee eee ete ct eee ee 900004830 
00004840 
epee TEA NEW SUB-CONE: IS BEING STARTED WITH THIS RECORD, FETCH THE ° -- 00004850 
; SUB-CONE NAME AND BREAK IT UP INTO PIECES FITTING IN A COLUMN 00004860 
2 BE -UT PUT oe ASSIGN "1!- TM -~IMP= TO INDICATE A NEW-SUR-CODE.- ween nen ONOO49 70: 
P BSS TON ene THE heer SE RIne> of ey ia anes, oe OF DATAe O0004F80 
: aes - = = = 700004890 
00004900 
, IF FFIELN-=CONE_NG 00004920 -- 
en FHEN DOG cm ie ce nn 2 ee er nnes # 019006930-~ 
: CODE_NA = FRIELD$ 00004940 
siprey Peta ee IF FFIELD = 495 THEN L = 133 ae oe ae dyae es mea ba ke Bee 00004950- 
ELSE L = (FF IELD aa 4001/10; 90004966 
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137. 
TF LENGTH(FLP(L)) > “YIDTH 00004970 


THEN no; 00004e80 
TITLE = FLDOI{L)s 00004990 
CALL DEO AE ETGCE STO THe Cr RLR)s o0c05n00 
eR ei eee ES cee, aS EMD 3 >>> -- Rema Sy tee ae eee Se OS OL O * 
ELSE nOQ; 00005020 
RLK = 13 90005030 
PC(1) = _FLDIL)S 00005040 
ern earns sie. ENS 90005059 
KNT = RLK + 2 + SLT: 90005960 
eememerernict aera sos mesenns TAG £> = 13 - to a wae rt oe a see ie eee we ee ne -- COOT5070 
ENN $ ag0cs5080 
; 000059090 
~AYQONS1ND 
-f TF THE SAME SUR-CONNE 1S CONTINUING, SET ~TMP~ AND -XNT= TO VALUES (.0005110 
FOR THIS er TORT. */00005120 
SS rey eee a Sa a a Ra Oa ame ae rrr eta § 16181 0.14 C1 8 
: 90005140 
oe ee “ELSE NO$ 90005150 
KNT = RLKT + 13 00005160 
- IMP = 03 , . 90005170 
END $ 90005180 
> eae aniatin 6 ® hahaa tienes = ene hve tie mis wh 5 Aen oo we ke me Sree Pe ae eee a ae eect < cine eee =: = era re a acai cre cee ooco 5 1 90 * 
90005200 
~/% - TF THIS BLOCK OF DATA CANNOT FIT INTO THE CALUMN REING FILLED ON0521N 
WITHOUT EXCEEDING THE PAGE LENGTH, START A NEW COLUMN. *, 90005220 
SRR Ss ; ; 00005230 
900052760 
oom nnn FRE LN + KNT) > SIZE THEM GO T° HEADER: Cert ee menas ae con mmnarwerme—ers = ONNNS 250 
j 00005260 
pate & es : 90005270 
/* TF A NEW SUB-CONDF IS BFING STARTED, SKIP A LINE IN THE COLUMN AND 00005280 
PRINT THE SURB=CODE NAME. j ; */00005290 
000053n0 
SA ee et nO net a a a — seem == wee ee ee Se nm ee ae ee a re me ee mee ene re ee ee ee ee a ee are ne ene ee 0000 5 a 1 6) . 
REVUENS TF TMP = 2 THEN N03 00005320 
: NI - NNO + 13 . ; = " 7 00005330 
LP6: NO I = 1 TO BLK$ 00005340 
COLECIND NN) = PC(I)3 : 06005350 
NN = NN + 18 00005340 
EN IU a OE en a ct ee --FND “LP63°-: tne ee ee me re a enrmenee: eee eres wanes eter em me ete team 00005370 : 
ENDS , 00005380, _...° 
. 00005400 
- --% - PRINT THE vine ED#, AND RESUME PAGE IN THE COLUMN, ALL ON ONE ~ 00005410 
LINE. */09005420 
ete tte spay mete Har an ae ite ee ements seamen ened Ae ee Set rennet eet oe Fee hee ne ee ee tee cent Sena rene rine meen Rag renee et ne eee nee eee 00005430 . 
; 00005440 
voccseesscses oe - BUT STRING (COLACINDsNN)) EDIT (VT_LNO,ED_LNO, PAGE_NO) ~~ ---->- -- 09005450 
(A (10) +X (SPACE) (20) +X {WIDTH= 30~ SPACE = “LI VACAIDG ; 00005440 
NN = NN + i$ Ses : ies: - 00005470 
00005480 
orien race ah inmates Seen avs. sattesesendls Ad gs darian Reena et ecb naae cca Reseda SONS ae aa Sa a sala hes as, see esplak ce cicatace is “00005490 ce 
; /* PRINT ibe “TITLE ™ THE COLUMN NEXT. ebeone 708 
Rea Raicetesneeler. esis ; : Sie, isk ee ek see, cone: Ses meee -00005510 
00005520 
“LPTs ~- DO T= 1 TO-BLKTS ts See eae Get eke a demerit genes Ose es ee OO OOSESN « 
; COL#(IND»NN) = © 8 FI TLPCTDS$ 00005540 
oor ess see me AN ee NAD EL Son er rt ne eee eit en nr re tr cee ce eee eee QO OSS 50-- 
. END LP7s ONN355 50 
teres senss > =~ LN S&S LN + KNTS3 ; a ete meee MARES STS 
GO TO REAN; O85 BG 


ERIC | 167 


138. 


-/* BRANCH HERE WHEM A COLUF IS AS FULL AS CAN 3E. 
UP THE COL UHM SURSCRIPT 8Y ONE. 


00005590 
a000 5600 
OCON 6140 


*/2 300 5620 


-0006:5639 


00075640 

HEAOR: IND = INN + 13 00065650 
00005660 

es : ; ° ; 90005679 

7* TF THE LAST COLI ON THE PASE IS FULL, START A NEW PEGE. FIRST; NONNSGRO 

paces —- PRINT OUT THE COLIEMNS OF THE FINISHED PAGE. “HEN INCREASE THE - 00005690 
IOEX PAGE AND PRINT DUT A TITLE FOR THE NSW CAGE. + /O000057NG 

: 90005710 

OO0GE720 

IF -IND.= IMAX 009057390 

THEN 9O$ enons74a 
ccm mee teem ce mecenerm nwen wane me mee TIPPS PS rr ree sete semen se npriemmene arma ane soe = OONGST5O 
Hpl: nO LL = 1 TO SIZE-LIMEP2-135 00905760 

ats q 3s PUT FILF (OUTS) SKIPCL)S 00005770 

tees O00 «K = 1 TO COLS 00005780 

Leteee «e : PUT FILE (HUTS) EDIT (COL #(KKe LLY 00005790 
Eee 0) C OLEAN NET T ete e Da 2 )38 o00esaon 

Sie int eee ieee = --COLM(KKeLL)- =>! 8 5-- Si ane Sete -- OO0N5SAILS 
ENT LPO$ 00005820 

FMN HDs Q0005A39 

PAGE = PAGE + 13 on0058&40 

IF SKPP SMARG THEN DN3 onn05F50 

SKPP = SZ - 35 Q0NN5R69 

oj seine Rees Fate TERS eo eee at UES ae ee cee SKPH = MARG? aes ats ferme tere ee  OOQNOSRTA 
END; N00NSFRO 

ELSE Os O0N005890 

SKPP = MARG3$ 00005900 

SKPH = SZ ~ LH + 13 00005910 

END3 00005920 

secret cence ne BUT FILE (OUTS) EDIT (PAGE HEAD, TITL) : ; ears 290005930 
(PAGE VLINE (LINEH2 ) sCOLUNN(SKPP ) F(4) ¢SKIP CO) » COLUMNE 00005940 

SKPH) sA(LH) »L INE C(LINET) »X¢(SZ2-LTH- eHpRGG lies +MARG-1), 00005950 

A(LTH))$ 00005960 

PUT FILE (OUTS) SKIP(LINEP2-LINET): - 00005970 

LP103 DO LL = i TO COL; 0000598N 
ee = PUT FILE (QUTS) FDIT C8 PAGE!) s-ere mt tterm - -00005990 
(SKIP (0) ,COLUMN(MG(LLI + TD TH “VV 9RC4)95 00006000 

SHS 4 “END LP1O3 eRe Rison aie 00006010 
PUT FILE Est SKIP(1)5 00006020 

END: : “ Z = ei See Aheeee eden ab eee - 00006030 

00006040 


mS REINITIALIZE LINE ‘COUNTERS FOR THE NEW. “COLUHM. */00006060 
itedentayars is = = 00006070 
: 00006080 
seeeriermics ts cee TR EMP BR THEN DOS © 0 5 errr cece eee ee re teres cera + 90006090 
NN = 03 00006100 
Fe cee LN LATE BQ § ot tt ttre ect ee ernie eect oe 00006110 ~ 
ENDS; 00006120 
te AS eee ee re eee en ee ‘EL SE- nos: . bee tee ewe ee ee se ee ce tie oe eee ee eee -900006130 
NN = 13 00006140 
BSNS SSeS Ree Sy OG Be Re “LN = LINEP2 + “Us eee ee ee ee meer ee ees 90006150 
i eo te ENDS 00006160 
1 KS PAGE THEN-E N= —EN + LINER 2-=-L I NEP 2 3--—————- ~~ 90006170 ~ 
60 TO RETURN; ; 00006180 
mm ee me ee —_ ae es . - * * * oo we meet eee es wee wee ee eee eee eee c0006190 


o.. 
ERIC 


pen eee = 90006050 


0000620 


739. 
J*% WHEM ALL RFECORNS HAVE REEM PUT INTO COLUMNS» PR 
OF THE IMNEX, EWEN THOUGH IT TS NOW COMPLETELY 


IT YHE LAST PAGE G0006719 
JILL. WRITE OUT go00n6s220 


fad 


THE LAST PAGE NUMBER OF THE INDEX. - */00006239 
00N06249 

re ee ee ee te seein ee tm tee = em em ee ee mee ee el 00 N04 ? 50 
SHORTEN? 00006260 

. 0 1 = 1 TO SIZF-LINEP2-13 0000627" 

PUT FILE (QUTS) SKIP(1)3 0000622 
sae POT Pe Hoos = 1 RAOCOLS ; 000062e0 

PUT FILE (OUTS) EDIT (COL t(JeT)) 90005300 

Se SK TDN YS COLUMNIMGL I) 14 SCV IDTHES ITs “ Ao Smee GOOOR19 
ENN LPI: 00006320 

END SHORTEN 00006330 

PUT FILE (OUTS) PAGES 00006340 

‘PUT FILE (SYSPRINT) EDIT ('LAST PAGE USED IS '.PAGE) 00008350 
(SKIP(S}yA(1 9) 5F (45 00006240 

——CLOSE-FILE (NUTS) + SHRM” Spiraea minnie tas Saher nia OOS Te 

FILE (SORTOUT)$ 00006230 

- 00006390 
00006409 

-/# SHORTEN THE SORTED RFCORNS ON ISK AND PUT THEM T’ 4AGNETIC TAPE 00006410 

FOR THE AMNUAL INDEX. */00006420 
me ne ee SS rt ee nee He o eee Sees ee ee me camer ee ce 00 00642 fy 
90006440 

“ON ENDFILE (SARTOUT) GN TO STOPS 0000645N 

OPEN FILE (SARTOUT), 0006460 

FILE (SUB) QUTPUTS 0n0ns470 

PUT FILE (SYSPRINT) PAGES 00006480 
“———RDE——- REAN FILE-(SARTAUT) “INTO (DUMMY) $0 cet mre te ee erm 90006490 
GET STRING (NUHMY) EDIT (AF LELD¢VT_NO,PUR) 00006500 

(AB) 9AC10) 9X(29) oA(2))5 00006510 

VTLNO = SUBSTR(VT_ND,4s3) Tl SUBSTR(VT_NT,843)3 00006520 

once cees PUT STRING (DUSMY) EDIT (AFTELD,PUByVT_NO," ~  --8y | 00006530 
(A(3) (2) 9A CE) ACT) 00006540 

See WRITEOE ILE: (SRY FROM (DUMMY) pe pe oat ties sere a ein ero NONHERSN 
PUT EDIT (DUMMY) (SKIP(1),A(11))5 00006540 

x, seetisithe AS SGOT) Bs ie. es = 00906570 
STOP: CLOSE FILE (SUB)3 0000650 
ee 00006590 
00006600 


oe —Y#——- THIS PROC FRURE: RRFAKS UP A STRING -BREAKE- INTO PEECES QF LENGTH ~ 00096610 - 
~LNTH~ AND STORFS THEM IN -—RROKE-. -NU- IS THE NUMRER OF PIECES 00N06420 


~ TT TOOK TO Of THE JOB. : ss j */0000 6630 
; 000066490 
re ee ee ee a es rt oe . r <= - see . 00006650 
BREAK: PROCEDURE (ARFAKEyLNTHsSROKE yNU) + : 00006660 
. ser ie ec ee aes cetaceans Rae eee OURO Re Ly & 
BRFAKE CHARACTER (396) VARYING» 00906680 
He kc iaedeseedes oll NTL Ses + IPIXEG BINARY = (Sig O}y t2% 2+ bsastetem ne eneasss ae > QOOGG690 
; ~ TEMP ; CHARACTER (396) VARYING, 00006700 
- BROKE(14) ; CHARACTER (WIDTH) VARYING, 2 Me 3 000067190 
. NU FIXED BINARY (31,0) 00906720 
ee nn ee ne fe ee ee eee eee FIXED BINARY (3190) geen cree teen cee ee G0006730 - 
. SUM1 FIXEN BINARY (31,0), 00006740 
ee : A ; Fete sce ee = 00006750 
om NU = O03 , 00006760 
~~ INITS  SUML = 03 nF Hn eee adm a te + oO POOOE TIO 
‘ TEMP = BREAKES 00006780 
Pei ete oP NIE NM CTEM Pig fb) gon tts ee ces a ceri eennerntie nae ree ee OO IE TIO 
, IF L = 0 00006800 
nn ans alae a aes ws 8 ----- THEN NOs es . ies & fa TBS Bow, wa'setaas! eke Sede sidaivay Gha ad 00006810 


‘ L = LENGTHITEMP) 3 09006820 


‘Re 
pu 
9 
co 


1h0, 
SUM1L = SUM1L + L; 
TE SUM1 > LNTH 
THEN DOS 
NU = NU + 1 
aan mee ee sO RROKEINU) = 
MUO = WU + 1 
BROKE (NE) = 
RETURNS 


> 
? 


? 
SURSTRCBREAKEsSUMI-Lt+1)3 


END $ eis Gee 6 2 sea Rae nS 


ELSF Ms : 
avin “ Nt = NU + 1% * - te te ¥ wet ee ie eae 4. we ee 
BROKE(NU) SUBSTR(BREAKE,1¢SUM1} ¢ 
RETURNS 
END; 


u 


END $ 
IF L > LNTH 
manana  UTHEN DOS a aah Ete 
PUT FILE (ERRE) EDIT 
(?TROURLE IN BREAK WITH 'yVT_NO) 
(SKIP (2) ,A(22)-A010)) § 
GN TN REANS 


; ENN 
——— SUMS -- --SUM1 -=-SURL #-(L 7193 gg ae Rie Sean: clan se a See sige ae 


IF SUM1L <=LUNTH THEN ON3 
“ aad - FeEMp = SUBSTR(TEMP,L41)3 
Stiizy = SUM] + 15 
GQ TO SPRCH$ 
ENDs 
wens te ere en emer NU = NOU + 13° = eh te 5 : mW anit 
BROKE (NU) = SURSTR (RREAKE,1_,SUM1~L) 5 
.. BREAKE = SURSTR(BREAKE ySUM1+2-L)3 
SUM1 = 035 
- 60 TO SUMS 
END RREAK § 


END WORKS 
CLOSE FILE (FRRE), FILE (SORTOUT)$ 
END VOCIMDs; 

t 


00006830 
00006840 
o9n0né6esa 
onn0nés&60 


-SUBSTRIBREAKEs1,SUMI~L~-1)3 ~~ a omen OIN06879 


09006780 
00006890 
90006900 
-- 90006910 
000-96920 
- 90006930 
00006940 
00006950 
00006960 
00006970 
ooonseAaNn 


“== §0006990 


00007000 

- 90007019 
o0007a20 
0n007030 
00007040 
~~ 90007050 
00007060 
GONRTOTO 
O0007TNORG 
00007999 
00007100 
~- 90007119 
00007129 
00007139 
00007140 

- 00007150 
0000716G 
“== OOO0O07170 
00007189 
00007190 
00007200 
00007210 


Zhi. 


DOCUMENT NUMBER QUARTERLY 


(2 
4% 
1* 
/%* 
/* 
1% 
fx 
/* 
/% 
1% 
1* 
/% 
1% 
/* 
/* 


oe an 


/* 
s* 
1% 
1* 
{* 


eee 


142. 


DUC_INDEX: PROCFNURE OPTIGNS (MAIN) 00000010 
00000920 

OvERALL PROGRAMS OESCRIPTIUN */00000030 
*/060050040 

*/O0000005C 

“EXTRACT FROM THE “4ASTEF FILE ALL DATA NECESSARY FOR THE #£/0009006U0 
" AMCUMENT NUMBER INDEX #/009°)G070 
TO CPEATE THE TITLE TO BE PRINTED */009902980 
WRITE FACH KECOR0 ONTO A SERTIM FILE */00000090 
{HEN THE ENTIRE MASTER FILE HAS SEEN PROCESSED SGRT THE SORTIN #/Q0000100 
FILE RY VT NO *#/00090119 
“READ IN THE 2 PRINT CORTREL CARDS WHICH CONTAIN THF OLESIPED */00000120 
PRINT SPECIFICATIONS FOk THE GACUMENT NUMBER INDEX #/00990130 
CARD INPUT SPECTIFICATIGNS ~ CARD 1 */COO00L4N 
COL lL - 3 TAIM® OR AMS . */000N0150 
4-6 LINE NO. CF FIRST PRINT LINE ~— INDX, SEASON) YRsy PAGE*/COON0L6OU 
7-16 FIRST PAGE NU. #/0G000170 
~L1-13 “LENGTH CF PAGES: ens #§ f/f OO00GL EO 
14-16 FIRST PAGE RIGHT CR LFFY -— L=LEFT 2=RIGHT */Q00000190 
17-19 WIUTH OF FARGIN 1 */00000209 
20-22 WIDTH OF MARGIN 2 - O ITF SU MARGIN */60000210 
23-25 WEOTH CF MARGIN 3 - 0 TF RO MARGIN */00000220 
26-28 WLUTH CF COLUMN -— FROM €yve IN vT NO TG *£" IN PAGE*#/00000230 
29-31 ° NO. QF COLUMNS , a */00000740 
32-34 NO, OF SPACES BFTKEFN VT aC AND LD NY ¥/00000256 
35-37 LINE WO. CF LINE PEINTING "PAGE® AS COLUMN HEADING*#/GO000260 
38-40 LINE NO. GF FIRST INDEX DETATL LINE - VT NO ED NO *#/000090270 
41-43 LINE SQ. ON TITLE PAGE OF LINE PRINTING "PAGEF */00029028N 
44-48 LINE NG. GN TITLE PAGE OF FI1AST NETAIL LINE #/00090290 

i , ; — */09900 300 

* CARL INPUT SPECIFICATIONS ~ CARD 2 */00000310 
cCL 1 - 3 LENGTH CF TITLE */00000320 
4 - 6 LUINF NG. GF TITLE TO BE PRINTFO */G0000430 
7°80 TITLE ITSELF #/000U0340 
ALLGCATE THE MATRICES USED TO STARE THE INFO TU BE PRINTED */00000350 
“READ THE SORTOUT FILE iene eee a #/00900360 
EXECUTE THE ROUTINES TQ ACCUMULATE THE DATA IN PRINTABLE FORMAT*/0009C370 
MATRIX LINER - ACCUMULATE 1t PRINT RFCORU (1€ 1 VT NO RECO?) */C0000380 
MATRIX BUILD - ACCUMULATE AN FNTI®E PAGE IM PRINTABLE FURMAT #*/06900039G 
THE RECGRNS ARE STORED IN BUILO IN SFQUENCE 38Y VT NO BY +/00000400 
PRINT COLUMN */00000410 
“PRINT AN ENTIRE PAGE FROM MATSITX BUILO WHEN BUILD IS FILLED © */00000420 
RE IMITIALIZE MATRIX RUILD AND BEGIN ACCUMULATING THE NEXT */00000430 

— PAGE IN MATRIX BUILD */£00000440 
‘HANG IT UP* WHEN ALL RECGRDS HAVE BEEN PROCESSED + PRINTED * /00000450 
ERRONEQUS OUTPUT OR PROGRAM BLOWUPS - MUST LIKELY WILL BF DUE */00000460 
TO INCORRECT PRINT CONTROL CARDS WHICH ARE DEVISED BY THE */00000470 
WSFER — CHECK THESE CARDS FIRST.” pee sme eee 5 290000480 
*/00000490 

DECLARE | - 90000500 
ANNUAL FILE QUTPUT RECORD, 00000510 
MASTFR FILE INPUT RECORD, 00000520 
SORTIN FILE RECORD, 00000530 
““SORTOUT ~° FILE RECORD, a Sa 7 06690540 

A_A CHAF (3), 00090550 

” ANN Panes CHAE (Le), C0090560 
ANMUAL_REC CHAR (24), 00090570 

~ REE: . FIXED BINARY €31,0) INITIAL (0), — -G0000580 


172 


Saas eee eae 


. - Thee eta 


143, 


RLANK CHAR CL) IRITI4L Cf 85, 
BLD_CODE CHAR (1) INITIAL (' Ff), 
3T CHAR CL) IMITIAL (fet), 
BUILD (NOCCLsPGE_LEN} CONTRULLED CHAR (COL), 
BUILDIT ENTRY, : 
COL FIXED PENA®Y (31,0), 
COL_L FIXED BINAS&Y (31,0) INITIAL (0), 
COLCTR FIXED BINARY (5159) INITIAL (1), 
NUM CHAR (35), 
FDNY) CHAR (20), 
FNIT_ISSUEF CHAR (2), 
EQIT_vVT (A) CHAR (1), 
ENOTIT CHAR (3) INIT£LaAL C8 '), 
ET : CHAR (1) [INITIAL (4>'), 
FIR8ST_PAGE CHAR CL) ERITIALG CPL), 
HEAN CHAR (74), 
“HINE © CHAR (113), : a 
I FIXF BINARY (3149) INITIAL C(O), 
THESRTA  ENTRY(CHAR (36), CHABR(3 3), TXED BINARY (31,0),FIXEN 
BINARY(15,0)), 
INNX CHAR (6) VARYING, 
TSKTP FIXED BINARY (31,9), 
TSSUF CHAR (3), —— 
J FIXED BINARY (41,0) INITIAL (0), 
K FIXED BINARY (31450), 
JL * FIXED BINARY (31,0), 
LFN_H ; — FIXFO BINARY (31,9), 
LFN_TITLFE FIXED BINARY (31,0), 


 LENTH (10) 
~ LINE 


“N 


DFCIMAL FIXED (4,0), 

LT CONTROLLED CHAR (TIY_LL 
, CHAR C118) ENITIAL C11 

FIXED BINARY (31,0), 


dy 
BP of fj, 
LINE_DETAIL 


~ LINE_H ~FIXLED 8TNARY (31,0), 
LINE_INNMX FIXED RINARY (31,0), 
“LINE_L oe“ ETXED GENARY (31,0), 
LINE_PAGE FIXED BINARY (31,50), 
~ LAINEH  CAAR C128) INITLALCOLIA) @ 4), 
LINER (TITLMAX) CONTROLLED CHAR (COL_L), 
 LINERE © i ~CONTROLLEN CHAR (COL), 
LINE SLFEFT FIXED RINARY (21,0) INITIAL (0), 
LNECTR "00 FIXED STNARY (31,0) INITIAL (1), 
M FIXFD BINARY [31,9), 
“MAST_REC CHAR (3736) VARYING, 


MGL a FIXEL BINARY (31,06), 


GQ 0 "FIXED BINARY (31,0), 

MG3 FIXFN BINARY (3150), 

NO°* 7 ° “FIXED BINARY (31,0), Se 
NOCOL FIXED BINARY (31,0), - 

“SAGE_NO “CHAR (4)5 © 

PGE_LEN FEXED BINARY (31,0), 
~PGFLNQ FIXED BINARY (31,0), 

PGF_RL FIXEO BINARY (31,0), 


PRINTED UU UT nnn ENTRY 


RETCNE FIXED BINARY (1590), 
" RELELD “CHAR (33), © a 
SFIELO . CHAR (36)5_ 


rn 


0c000590 
00900600 
00090619 
6099062C 
0C9900630 
00000640 
00090650 
00000060 
00009670 
00000680 
00000690 
00990700 
00N3071LO 
00090720 
00900730 
00000740 
00000750 
00000760 
00000770 
00000780 
0009G790 
00000800 


~ 00090810 


00900820 
00000830 
Q0000849 
00020850 
90000866 
00000870 
000008 80 
000008S0 
co000900 
ocogo0o9le 
96000920 


~ 00000930 


00000940 
00090950 
00000960 
00000970 
CCOCO9#RO 


* 60000990 


00001060 


~ 00061010 


00001020 


(00901030 


00001040 
NC00L050 
06001060 
0G00107G 
00001080 


* 00001090 


00001100 


“00601110 


00001120 
00001130 


Q0091L40 


~ ~ SPACES (77 : ~ CHAR (LI8) INITIAL (CLLB) * &), 00001150 
Beaten SURL INER FIXED BINARY (31,0) INITIAL (1), 00001160 
oe ee SUMO oo ee BINARY FIXED (32130), : *" 00001170 
; Tit (3) CHAP (396) VARYING, 00001180 
a! nO el rns 2.227) BINAKY (31,0) INITIAL” (9)35 °° °° 00001190 
TIT_MAX FIXED BINARY (31,0) INITIAL (9), 00001200 
‘TITLE . 7 “"""" “CHAR (396) VARYING, 00001210 
TITLFE_UFN DECTHAL FIXED 6,0)9 00001220 
~ ~~ "“TOP_PAGE wee SENTRY, memne—="" "90001230 
TP_LLIN_DET FIXED BINARY (31,0), 00001240 
a a TM GE “RIXED BINARY C31,0)5° 7 7 7" "900001250 
UNPACK CHAR (11), 00001260 
~VARYER © mn DECIMAL FIXED (6,0), 007 “ " " " QQngo1e7 

VT_NN CHAR (10) VARYING, 00001250 
> SO EAR, ee SERRE PS hc 5 ss 00001290 
VT_EN FIXED BINAnyY (31190), 0G001L300 

I 6 20: > eeeeeeneeenmnnes ol 1-1: 2 i eee TTF —S—="—"OOOOLB LO’ | 
BEGIN: 00001320 
“OPEN FILE (MASTER), _. eS OO00L 330 
FILE (SORTIN) OUTPUT; 00001340 
 READ_MASTE ; PaO Seu MerO! mates n, dete aise Skeet eee Alen - « BooplasE 
ie Xe Ae ee oe a ok ak os RENE Ree eas Xt ok eK es os af ake es te of Xe ake ote ok ot Pe St et a Ae MF Re oe ae Ae a eke 2 ae At eee /OOONLIGO 
“REG ILE PAASTER) INTO MAST REC) SO re ee 00001370 
; - ON ENDFILE (MASTER) Gi) TO SORTIT; 00001380 
JR ER KE ek soak ESR ACR Re es Ree eke ae os ak os Se at Re eke Re ok BE Hae ee oe ak ok aa a asta ak ek tek ok ek aa 0099] 390 
oo N = INDEX(MAST_REC,*] 4 4)3 00001409 
Lcecaemment ae Be otk) dase auanenn eek oe ee eas ona heehee bee ele OoGlare 
GET STRING (MAST_LREC) EDIT (VARYER) EXONtLDSFU4,0))3 O000L420 
~— TE VARVER =O THEN GET STRING UMAST_REC) EDIT {TITLELLEN) 00001430 
ee (X(N4+5)5,F(4,0)03 00001449 
“Ere pop ct eee ENS! ean oo0gLash 
ae GET STRING (MAST_LREC) EDIT ({LENTH(L) DO L=l TO VARYER), 90001460 
SS STLETLELLPN) (X0Nt5), (VARYERF1) FC4,0)93 “0000147090 
THRULAUTHOR : 00001480 
ee eee ee vO r=") 10 vARyeR eee OO aan 
aes ; SUML = SUM1 + LENTH(1)$ 00001500 
meme END THRU_AUTHOR 3 EEE? ELLEN TE OA TET 
sitet ies oe, ENDS. 00061520 
. PRK Re AER ae a se ee a ea tc ake Re ae ee oe a a a he tea aE eat ok oe TEAR AE ee OK Rok ak KR GOO0L 530 
/* EXTRACT DATA FROM MASTER FILE - VT NO ED NO ISSUE YEAR */00001540 
fe RT a as ee a TC 7 00601550 
cee GET STRING (MAST_REC) EDITEVTL NO,ED_NI,TSSUE,YEARL, YEAR2Z¢ 00001540 
. — ““PAGE-NO,TITLE) 7 ~ ‘QOGG51570 


{AC10), KOL7) sAC20) ALB) AC2) pAL2DGA A(4) ,X(SUM1L) ,AITITLE_LEN) ) ;00001580 
ORE Rooks ae a oe ke Rae ak ee ok oe te de ae oh ae ake a ae Re ake ae de eae oe ake ake oe eae ae Ree RE A Oe eh ee He det ee KO OOQQLSGO 


IF TITLE_LLEN = O THEN DO; mHI9 1600 

a “PUTT EDIT (*Re CORD WITH A TITCE -CENGT RGF ZERO FSVITINGS" " -YODOLELO 
(SKIPCL) 22 Ad; 09001620 

ee —"—"GO TO READ_MAST; I LE TRH ==“ OO OL ERO 
END; 00001640 

ROR Se aa ea ees aaa tT 
/* ROUTENE TO OFTERMINE THE DUCUMENT TITLE BY BREAKING TITLE BY %*/00001660 

. Fe BEGIN AND “END TITLE CHARACTERS ~~ ¥#F 00001670 
TIT -BREAK® 00001485 

OE N =" INDEX(TITLESBT I: | TAK ==" A OOOLEOO 
 . N = 0 THEN GO io ar. 5 __ 900017600 


Te er ee 


eee 


at 4 : fe le - 145. me Sie oe a ees Ce 
M = INDEXCTITLEET)3— ee “00001710 
SU8STR (TITLEyMy1) = SUBSTR (TITLEsMt1ly1 43 00001720 
_— “Lo= M=- N; - i — , ~ OS: = : 00901730 
T= 1+ 13 00001740 
TO TTT) OS SUBSTRETITLCE NFL LIS) OG OOL TSS 
TITLE = SUPSTRITITLE,MN+1)3 OCOOLT40 
GQ TO TIT_AREAK; . , So ee “909001770 
CAT: TITLE = 88; ‘ 00001780 
TIT_BREAKFR? ee _ “ "99001790 
oc J = 1 T0 73 00061800 
ee TE SUL THEN TEILE S TrTee TT) oTimyys 0 0CLB LO 
FLSE TITLE = TITLE Il BLANK {I TITGS); 00001820 
Fs ’ END TIT _BREAKER3 7 See 00001830 
TITLE_LEN = LENGTHITITLE)3 00001840 
“7s” WRITE RECORDS TO BE SORTED BY THE VI NQ OUT UOTTT Tm m  & FO000L85C 
FOR_SURT: 00001860 
TOT EEN OEP TLE SDL TE CEN TEE" 0001870 


[RRR theeeecenena es He keke eke dk dea a ak th eke de tok oak ak ak ak ke ea tet oe kok ok ket tote JQO001L880 
PUT STRING (MAST_REC) ENIT (CVT_LNO,ED NGOs PAGE_NO,LEN_TITLE, 00001890 


TITLE», ISSUE, YEAR1,YEAR2) 00001900 

: = C(ACLO},AC20),A04) ,F 04) ,A0TLTLF_LEN) ,A03),2 Al2))53 00001910 
WRITE FILE (€SORTIN) FROM CHAST_RECIS§ 00001920 

— PUT FOIT (C8 UNSORTEL FXTRACT *ei4AST_REC) (SKIP C29,2 AZ 00001930 
JRE ME ME ae Ht ke Ae he Xe ale Be Hie He ROME RS EAE Ae REE He a BE AE APE Se aA REO Re RS < X sata ES SARA a RES 00001940 

‘GG TO READ_MAST; _ 00001950 


[RRR Re ee he he ee a Re ee ah ole a ake oe a oe Re de ae ok Re Rak a ok ie ok Re Re Me ae ate a ae Re oke Re oe de akeak ak ae te JOOOOLIGO 
Be Re Seah A a eo a de abe ak ee Me eae a a oe eae eke fe dee aoe ake ae es a te gc de dea a ee a ake oe ae oe oe ea hotest ak 400001970 


SORTIT: 00001980 
mom CONSE FILE USORTING y FICE (MASTERY 9 UU nm = 00001990 
SFIELD = § SORT FIELDS=(5,101THsA),SIZE=E900 83 00002000 

oe" RETELD =) § RECORD TYPE=VyLENGTH=(45055529) ¢35 , —_ 00002010 
CALL THESRTA(SFLIELO,RELELD,45056,RETCUE) § 90002020 


TF REYCDE = 16 THEN PUT EDIT C*RETURN CODE OF 16") (A(15}); 900002030 
J ARR BC ae ae Re A eR a a Re a a oR aR oe ee Re a ak ae ke aa ea ak a te ak aio hook teak ak a Ree ee 40002040 


PE He Fee RSC AR Re ME hee eae RE eae a ae ote a ee ate BE a AE a te a ae a ER Re ok ER ok RE eR ee 0002050 
GPEN FILE (SORTQUT)3 00002060 


ON ENOFILE (SORTOUT) BEGIN; ~ 00002070 

PGE_LNO = PGE_NO + 13 . 00002080 

SR RL. RRP AGE ee ee te ee eee ere OCT OG 
CALL PRINTIT; 0002100 
Pe Sn TP RUN PN ee “90002110 
END — 00002120 

"7 READ’ THE 2 PRINT CONTROL CARDS TTT rm mrmmnrmnrrmmn nt 2909902130 
SETUP: 00002140 
pormrmomenn =" CEE TLE WT SYSIND EDIT CALAPEINELINDX) CAC3BVV ECB) ES TTT TO 00002150 
; GET FILE (SYSIN) EDIT (PGE_Ni), PGE_LENs PGE_RLyMG1LyMG2y 00002160 
nn TSC OLS NOCOL  VT_LED y LINE] PAGES LINELDETATLY TPLLIN_PGE® ~~~" 00002170 
TPLLIN_DeT) €F(4)y120F0390)3 00002180 

TOT“ CETTE ELE OSYSIND EOIT (DUM) CACB4) PROT TIT To" 99002190 


GET FILE (SYSIN) EOIT (LEN_H,LINE_HyHEAD) (2 F(3),A074));5 __ 00002200 


PGELNO = PGE_NO —- “00002210 


pon Pre neiees eis niet oe ee cee, 


o.. 
ERIC 


COL_L = COL - 33 00002220 
ee PE SCO a ae ee "= 00002230 
TIT_MAX = (396/TIT_L) + 43 ~ 090002240 
To meme ETNEL EL = (MGT + MG204+ MOB 4 “{NGCOL S carly oe 0002250 
EDIT. ISSUE = SUBSTRCTSSUE,23:2)3 00002260 
‘ : : fog ee 
oe ee | Wee 


eee (SSAC 


nceenestecnf 


| 


- ~ = - : 146. a : 
coe "TF EDITLISSUE = tW © THEN INDX =" WINTER #3) © UU TTT ">> 99002270 
IF EDIT_ISSUE = '*F *® THEN INDX = *FALL*?: 00002280 
"UR EDIT_LISSUE = "SF® THEN INDX = #SPRING*3 077 7 O77 > "99002290 
IF FOITLISSUE = "SU* THEN ENDX = *SUMMER SS 00002300 
———— FA DEN ELLE CINDIX) CUTPUT “STREAK PRENT OU EE ""00002310 
PASESIZE{ PGE_LEN)3 00002320 
: PGF_LEN = PGE_LEN —- (LINE_DETAIL —- 1)3 : ie ree ns 000C2330 
ALLOCATE BUILD; 000902340 
wees SS ALLOCATE LIN3 9 7 OO nn oe mm meme =""90002350 
ALLOCATE LINER? 00002360 
— TALLOCATE LENE REF ER "= —"“ 0002370 
CALL CLEAN_SUILD; 00002380 
‘ ~ “PGE_LLEN = PGE_LEN ~ (TP_LIN_DET ~- LINE_DETAILI3 © 7 “" 90092390 
GG TO READ_SORTOUT; 00002400 
“7% “ROUTINE TO PRINT THE HEADINGS AT THE TOP OF PAGE ae aa */00002410 
TOP_PAGE: PROCEDURE: 00092420 
OTE PGE RUE OL THEN Uo 7, a ———" 90002430 
PUT FILE (INODIX) EDIT (PGE_LNO+A_Ay*/",INDXe* *,YEARZ) 00002440 
: ~ (PAGE sLINE(LINE_INDX),XCMGL) F044), XO LINE_L~(MGL444+ 7+ 00002450 
LENGTH(ENDX)) )¢AC BI SACL IGA vACLIZAC2005 00002460 
meee ee cae Ge ae . <2 hoaosa7a 
PUT FILE CINDEX) EDIT (ALAs "4", INDX,* *,VEAR2,PGE_NO) 00002480 
a oo CPAGESLINFECLINF_INDX) pXCMGLYZACZIZACL) sAg ACL), 402), 777 00062490 
XCLINE_L-(4GL 44477 LERGTHCINDX))),F (4093 0cG002500 
~ “IF FIRST_PAGE = *0* THEN 7 00002510 
PUT FILE CINDIX) EDIT (HEAD) (LINFCLINE_H) » XC CLINE_L/2)— 00002520 
TT TT CLENLH/2)),A020)0)05 0 © resi Sem" 90002530 
LINE = SPACES; 009025490 
TTF ONO COELD 3 THEN GU TOT nnn rm mem = 0002550 
SUBSTR(LINE 5 MG 14+MG24MG634(3*COLI-344) = "PAGE'; 00002560 
ee "T2207 TF NOCOL< 2 THEN GO TO TL3’ a — 00002570 
SUBSTR (LINE y4MGL4MNG2+ (2*COL)I—-344) = "PAGE'S 00002580 
“TL: - SURSTROLINF »MGL4(COL-3}94) = ' PAGE'S a Cees 900902590 
HINE = LINE; 00007600 
ee TF FIRST_PAGE = "QO" THEN ~ ; - ==" 90002610 
. PUT FILE (INDIX) EMIT (HINE) (LINECLINF_PAGE) ,AC118))3 00092620 
eee ELSE PUT FILE CINDIX) EDIT (HINE) €LINECTP_LIN_PGE}),A(118)) 300002630 
IF FIRST_PAGE = "Of THEN 00002640 
Ee TSKIP = (LINE_LUETATL — (LINE_PAGE #° 1YY$ > 07 TT go0002656 
ELSE ISKIP = (TPLLIN_DET ~— (TP_LIN_PGE + 1))3 00002660 
To BUT FILE CINDIXY EDIT USPACES) USK IPCTSKIPE) cA CLL8VYE 7 00002670 
1F PGE_RL = 1 THEN PGF_RL = 0; E!S= PGELRL = 13 00602680 
aes EC een oT ET ae ree Bo Et Dame no aasaranet Paeecemmmanenents = OBO G9 EO 
END TOP_PAGE; 090902700 
“7 READ THE SORTED FILE TUT rem 00002710 
RFAD_SORYQUT: 60002720 
TERE BeBe he BE ee RE AE REA Be ERE eae A EB aa RE AE A He RE ACE ERE 0002730 
READ FILF (SORTOUT) INTO (MAST_REC)3 00002740 
eee GET STRING (MAST_REC) EDIT (VT_NO,ED_NO,PAGE_NO,LEN_TITEE, ~~00002750 
TITLE, ISSUE, YEARL,YEAR2) 00002760 
eee TROL O) pAL20) 2 AL4) E04) pACLEN_TITLE) ,AC3) 92 AL2))3 00002770 
IF VY_NO=*VT 010 625 THEN GO TO READ_SORTOUT; 00002780 
Te REE ER Ke RE ee RR EAE AE RACE RE ee AE ae oe oe HE EAE OAK aE EO EER 0002790 | 
CALL ANNUAL_INDEX3 000028G0 
~ 7*" ROUTINE TO TEMPORARILY STORE THE DOCUMENT TITLE TN” PRINTABLE “FORM*/00002810 
/* _IN THE MATRIX LINER */00002820 


~ 
- 
may 
iJ 
| 
\ 
{ 
| 
\ 
{ 
} 
t 


—- = "LINE = SPACES; ae a ra Tt mere eee" 90002830 

| PUT STRING (LINE) EDIT (VT_NO,ED_ND, PAGE_NG) 000023840 
oe “EAC LOVeXOVT_ED) pAL20) 9 X(CCL—( 344VT_ED) 35A(04)75 , — 00902850 
SUBLINER = SUBLINER + 13  LNECTR = LNECTR + 1i 00062860 

SS Re ae Ps i ~— * 90902870 
BRK_TIT: CO002880 

] = IF LEN_TITLE < TITLL | LEN_TITLE = TITLL THEN GO TO END_VT$ 00002890 
LIN = SUBSTR{TITLE sBEGsTIT_LI3 00002900 

IF SUBSTRUTITLE,(8FG4tTIT_L}y1) = ' * THEN DOS) = = 7 00002910 

| LINER(SUBLINER) = € f GFE LINDS 00002920 
Sa REG = REG * TITLL 1g" oren ™ "900029 30 
LEN_TITLE = LEN_TITLE — (TITLE + 1)3 00002940 

= cer" Suet NER = SUBLINER # 13; LNECTR = LNECTR + 15 oom 99002950 
2 GO TO BRK_TIT; 00002960 
ae nae Aa ire apart END; . 7 * ee eal atl EN shere: cegagerer ee tte ee es aS Sacre nee a ~ 00002970 
DC Jd = TIT_L TO 1 BY —-1 WHILE (SUBSTRILIN, Jel) a= " 125 END3 00002980 

a oon INERT SUBLINER) = (17 4 LP SUBSTRILING Te J-1ID 3S ae "90002996 
H BEG = BEG + J3 00003000 
c ; se TEN TLILE = LENLTITLE -— J35 anda 00003910 
‘ SURBLINER = SUBLINER # 13 LNECTR = LNECTR + 135 0000302¢ 
- woe ote 8a EO BRKLTITS - J ENE US = ENE ES ae jooosaee 
| _END_VT? 00003040 
; oa TINER(SUBLINERD = C8 © TE SUBSTRCTITLE, BEGrLEN_LTITLEI)3 = = = 00083050 
Gi TO CHEK_80T; 00993060 

ae "9  POUTENE TO HANDLE 80TTOM GF PAGE IN THE MATRIX BUILD "7 #/Q90003070 
| _CHEK_BOT: 00093080 
a a LINESLEFT = PGELLEN — LMECTRS 7 ee 00003090 
IF LINESLEFT > 2 THEN 00; 00903100 

oe —St eA CODE Ss ee ee eee eee POONOSLLO 
i CALL BUILDIY; 00003120 
ca oe eee" BL D_ CODE = t 45 See ee oe ge Pee eg ca _ 00093130_ 
GO TO REAN_SURTOUT 00003140 

- wees ae ee Ea BUT oe ee ne 8 AAA Ost SA 
a IF LINESLEFT >= O THEN GO TU FINISH_COL; 00003160 
1 EE QE TRS NO COL TREN DS EEE OGO0BL TG 
LINEH = LINES 00003480 

“a Hee Re lS PEE NO 4 fe eee ee OST 0 
q CALL TOP_PAGE} 00003200 
4. sor mae mremnrenemmemem men A LODE Eg nnn rn ee 900903210 
CALL PRINTIT; 00083220 

an ID ne UNFECTR = SUBLINERS - soot TRH". 903230 
\. BLD_CODE = ‘1'$ , 0000324C 
he ATE BUELO ET 3 oom ee ee 0003250 
- BLD_CODE = ¢ '; 00003260 

a TTT SSE TC RE AD_SGRTOUT 3 vo emma meme rane mee" 90003270 
| END; aes 60003280 
ee EC TRE TSUBL INERT OES" 9.10.0.03290 
COLCTR = CCLCTR + 13 : 00003300 

-_ Ten BED CODE SPL ae STE ""90003310 
Be CALL BUILDIT§ . 00003320 
CL —= BLD CODE = BU EE 0003330 
GO TO READ_ SORTOUT $ 00003340 

FIN TSh- Core a ei a em a == 990 03350 

IF CGLCTR = NOCOL THEN DO; 00003360 

SO ALB EELID ET B00 TTT EE EEE 000903370 

PGE_NO = PGE_LNO + 13. 00003380 


meatier 


| a8. 

CALL TOP__PAGES 00003396 

CALL PRET TG 00003400 

~ —_ “"GO TO REAL_SORTIUT; 00003410 

ENN 00093420 

_ i “CALL BUILDIT; : 90003436 

COLCTR = COLCTR + 1; 00903440 

LNECTR = 13 0000345C 

GO TQ FEAD_USCRTOUT? 000034690 

FRC RO FR ge EA eae eR AE Me Ae a a oie ae hee A oe Re ote oe ot Ae oe Seah Re oe ook Ree dea oe ak a deck ede teak ee /OOON34 70 

/* ROUTINE TO RUTILO AN ENTIRE PRENT PAGE IN THE MATRIX BUILD */00903480 

~~" BUILDIT: ~— PROCEDURES ; 00003490 

J = et 000935900 

LNECTR = LNECTR + 13 00003516 

a To= LNECT2 — SUBLINER: 00003820 

4 ; ioe BUILD(COLCTR,T) = LINE: 00003539 

- SUBLINFR = SUBLINER — 13 00993540 

‘ ee “pO T = SUSLINER TO 1 BY -13 — ~ aia —— 00003556 

q BUTLD(ICOLCTR,LNECTR-IT) = LINER (5)3 00003560 

\ = Js J 413 00093579 

= END; 00903580 

TF BLO_LCODE = "1* THEN DO; 0000359 

1 BUTLE(COLCT#»LNECTR) = SPACES; 000936000 
y cee" LNECTR = LNLCTR + Ls)” _ — O0NNZALO . 

7 END; 00003620 

. DO — = t TO TIT_MAX3 00003430 

. LINER (1) = SPACES; 00903640 

sone" ENDS 00993450 

7 SURLINER = L3 00003660 

_ ees ee Seta ee ea RS ae ae ee + heaaaeo 

| FND BUILDIT; 00033680 

q JR RCRA ee he ot Be ec ake Se ate fr oe te ce ak he oe ke a aR oe ote oe he fe ah Me ae hk Me Se oe ok ek ok ae ok ok a KS OGUISaIU 

. F 28 70 Re RE Se A Ae ak Se Se Ms Hee Pe oe de eee eA A ee Xe eo Ae ke oa aka ae ae a AAR ok ee eRe A/OOUIITOY 

. “/*® ROUTINE TO PRINT AN ENTIRE PAGE FPGY THE MATRIX BUILD */000937106 

¥3 PRINTIT: PRICKOURES 00003720 

1! "pO fb = 1 TO PGELLEN; oe Se ee et 00003730 

ae TF NOCOL = 1 THEN PUT FILE (INDTX) EDIT (BUILAC1L, 1) 00003740 

te rs , (SKIPCL) »XIMGL),ATCOLS; 00003750 

Ai ane TF NOCOL = 2 THEN PUT FILE CINDIX) EDIT (BUILD(1eT), 00003760 
ay i aiid BUILD(2,1)) (SKIPCL) sX(MGL), AN (COL) eX (4G2) pA COLI) 00003770 . 

" IF NOCOL = 3 THEN PUT FILF (INOIX) EMIT (BUILD(L YT), 003937480 

i oe ESS BUILD (2,7) sBUILD(3919) (SKIPC LI SX (MG1) yA(COL) »X(MG2)_, = ~=00003790 

4) A(COL),X(MG9) ,ACCQOL))3 00003800 

\ oe ENDS — = 00093810 

cane CALL CLEAM_BUILD3 0000gs82¢ 

TF FIRST_PAGE = "L* THEN D3 00003836 

oe FIRST_PAGE = *"0'3 00003840 

i woe PGELLEN = PGELLEN + (TPLUIN_LOET - CINELDETAIL) $°7 7°77 77" «66N003850 

~ LiNDS ; 009003860 

ee . alee aoa: fs fee ease 2 Pee” Ee ee. le ae oone4e To 

LNFCTR = 13 00003280 

Smeienee oes ee Ge eee en ee Aoetasde 

END PRINTIT; 00003900 

a ees TITIES PBR P RC Ra Me eae ete Seo Re ae Rea ae Sh ae ahs a Ree oo oie a a ake eC Ht a ae eRe a oe ee ae he ee eee ke teak tek ee J OOONS910 

rf CLEAN_BUILN: PROCENURE; 0003920 

a _—_ SQ £ = 1 19 PGE_LEN; . —— ae 00003930 


TF NOCOL >= L THEN BUTLD(1,1} = SPACES$ = = = == —————s«00003 940 


173 


. 2g. 


IF NOCOL >= 2 THEN BUTLD(2¢1) = SPACES? 00003950 

IF NOCOQL = 3 THEN SUILD(3,1)3 = SPACESs 00003960 

END; 0c003970 

RETURN; 50003980 

END CLEAN_3UILD; . ; , 06903990 

J PERE te de Sete Re he Ne cle Re Me Ae A ee ots Ae te te ok Fe ts ae ote Bc ot he 2 ae ate fe te a ate oe od oe fe te ote he ee REE Seeker SOOTIGOVU 

y7* ROUTINE TO wRITE GUT THE ANMUAL FILE - VT NOD PAGE NG ISSUE *f0C004019 
/* YEAR ~ 18 BYTE RECORDS *700054020 
ANNUAL_ITNDEX: PROCEDURE; C00040390 

nr = O03 00004040 
“EDIT_LVTFF: See ae 7 oe 009904050 
on J = 1 TO 10; 00004060 

TF SUBSTR¢(VT_NOedel) = tv j 00004070 
SUBSTREVT_NO,Je1) = Te | 00904080 
SUASTRIVT_NOeJeL) = & 8 00304090 

THEN GO TO ELL; 09004169 

OO Ee ELSE DO;3 7 oe : - : : re ~ 000041190 
K = K + is 000041206 

FOIT_VT (K) = SUBSTRIVTILNGsJeLdS 00094139 

END; 00004149 

£OL: FND ENIT_VTEES 00004159 
[38 A LOE a oe oe OR Ae Se ak RoR REE Me ake Re a Re ae a ae ae Me ote ak aca oR Se le ae a ak ae Me oe eae ae te eae ee a Z OIG 1 OO 

~ “PUT STRING (CANN) ENIT (CE0ITL VT»PAGE_NU,TSSUE,YEAR2 2! ") ~009904175 
(6 ACL) sACSI ACB) AACAV,ACZIDS 0000418C 

WRITE FILE (ANNUAL) FRGM CANN) 3 09904190 

PUT EDIT (* ANNUAL FILE ",ANN) CSKEOECLI22 AVS 0000420C 

[NES Bee Reo Ae ee te oe ae ae ke eae ae a ok ea ok oe ote de oie de ate Se Oi oe ae Re Re Hae aR ak ae ake ok ake Rak dese de desk ee EE SOO0042 10 

RETURNS 00904220 

peer meme = ENO ANNUAL_LINDEX3  — co eS mosses mes 99904236 
PRINT FINS : 00004249 

. CLOSE FILE (CSORTOUT) » FILF CINDIX)S : _ ; 0906425C 
END3$ : 00004260 


150. 


CONVERSION OF DOCUMENT NUMBER 


RA SETS SPE aS SS 21S te es Reis 3 EOE SIS SIS TIS FS 32 3)o 5,5 1s ae aS afc Ss os ale of 2s 2] aie Is siz ox BIS Ae 3s ms S55 3S 
As 
a A euUAR TERL YY A it vb fr AOL 
1% CON VERS IG: OF 0 GCUnE “UN 6B ER 
- a 2 so ITN b ERX = . : ore ; 
/* 
ee 
/* PURPOSE: THIS PROGRAH CAN GENERATE A QUARTERLY OR AN ANNUAL 
: “fe CONVERS TOM GF DOCU ERT RUHBER INDEX. IF VE ARE 
re ; _ INTERESTED Tit A QUARTERLY ITAIDEX. WE Th PUT TO THE 
a 1 PROGRAM TRE ATM OR ARE COMVERSIOKN TAPE WITH ITS GONE 
2 LARGE DATA SET. FOR AN ANNUAL PRINTOUT, VIE USE BOTH 
pe Alin AWD ARM CUrRVERSTUMN TAPE DATA SETS (THEY NAY BE ON 
75 GUE OR T!'O TAPES). FOR EITHFR ItMEx,. THE VOCATIONAL 
a A CENTER SPECIFIES THE PAGE DIKFENSINNS AND AM IMDEX IS 
138 PRGOOUCED FROM THE TAPE DATA. THERE IS NO SHORTENING 
OES fans © - OF RECORDS. THE CUARTERLY TAPES ARE SAVEO AS IS FOR 
ce THE ANRUAL INDEX. 


NNN NNN 
ee 


e 2 UNLESS OTRERVISE SPECIFIED, VARIABLES ARE THE SAME FOR EITHER 
3 INOEX. 
TEE TT TD, COL H-— NUMBER OF COLUMNS OM AN IMDEX PAGE. eae 
Vie 2e HEAO -— HEADING IM A TOP CORMER OF EVERY PAGE WHICH TELLS 
He ; ; THE ISSUE; SEASON, AND YEAR FOR A QUARTERLY 
73 PRINTOUT (EX: FALL/AIN 69) OR IT TELLS ISSUE AND 
eer 4:5 ~ YEAR FOR AN AMRUAL PRINTOUT (EX: AIMN/ARM 69-70). 
fe Be INDX -- INDICATES WHETHER AM ANNUAL OR QUARTERLY InMDEX IS 
— Pier TO BE PRODUCED. 9 8G! HEAMS QUARTERLY "At NEANS 
a ANNUAL © 
UU fe "ee LIMEHL -~ LINE OF THE TITLE PAGE OM WHICH THE INDEX PAGE 
BS MUMRBER AND -HEAD- ARE FOUKD, AT OPPOSITE ENDS. 
pe “5. LINEH2 -~ Sate AS -LINEHI-BUT FOR ALL PAGES EXCEPT THE 
7% TITLE PAGE. 
amen 2: “6s LINES1 =~ LINE ON TRE TITLE PAGE OF THE QUARTERLY INDEX. 
a ON WHICH THE SUB-TITLE IS FOUND; LINE ON THE 
or 1. TITLE PAGE OF THE ANNUAL INDEX RIGHT ABOVE TRH 
me START OF THE ACTUAL INDEX PRINTQUT. 
ETE Te LL INES2 --~ SAKE AS -LINES1~ BUT FOR ALL PAGES EXCEPT THE 
7 TITLE PAGE. 
ee PE Be LL INET -—- CINE ON ALL PAGES EXCEPT THE TITLE PAGE ON WHICH 
ris Se LH -- LENGTH OF VARIABLE -HEAO-. 
a 2 11. LT -- LENGTH GF INDEX TITLE. — 

7 126 MARG -—- LEFT-HAND MARGIN OF THE INDEX PAGE. 
TE 1B e MG -~ ARRAY OF COLUMN MARGINS, EACH MEASURED FROM COLUKN 
7% THE TITLE APPEARS. THERE IS RO TITLE GN THE 

ma py ee ee  PTTLE PAGE go en ee mee EE SIR TE 
1% THE ANNUAL INDEX. 
TET" 1 Oe LS’ =~ LENGTH OF SUB-TITLE FOR THE QUARTERLY INOEX? N/A FOR 
L8 le 
TO 8" 146 NBH -- NUMBER GF BLOCKS OF PRINT GON THE TITLE PAGE. 
VE 15. NBR --- NUMBER OF RLOCKS OF PRINT ON ALL OTHER PAGES. 
mee RE 1G NPb -- NUMGER UF LINES OF PRINT PER BLOCK. 9 TOC TO 7 
c* 17- PAGE -- PAGE NUMBER OF INOEX PAGES. — 
Pe" 18. GUE -- INOICATES WHETHER THE TITLE PAGE WILL BE ON THE 
ae LEFT (tL!) OR RIGHT ('R*) SIDE OF THE PUBLICATION. 
OT PRETO 198. SIZE S=-— NUMBER UF LINES OF PRINT PER PAGE INCLUDING ALL 
7 HEADINGS. be at! 
TE 206 SPACE == USED IM CUARTERLY INDEX ONUY. NUMBER OF LINES 
“fae 7 SKIPPEO RETWEEN THE LAST LINE OF PRIWT ON THE 
ny 1 ‘ “TITLE PAGE AND THE FOOTHMOTE (SET AT 3 NOW). 
i FE Rhee SUB ~- SUB-TITLE ON EVERY PAGE OF THE QUARTERLY INOEX-~ 
@ 
ERIC 181 


DEFINITION 


OF VARIABLES: 


ee /SOOOOOT2ZL 
R/OCOUCCCUSOA 
*/OOCGOUMES: 
* /OCOOGE 
*/OOGGRAL 
*/OCOOON TE: 
= /000G0080 
*/0QQ00090 
* /OO000100 
*/O0000 110 
= /G00001 20 
*/OO0000130 
* /ONO0G0NL40 
*® /GOUN001L 50 
* /OGCOGOLaN 
* /OOOOOL TO 
* J/OONOCLSO 
* fOON001°0O 
*/0000020" 
*/O00002710 
* /SOO0O00027270 
# /00000230 
* /O00060240 
* /00000250 
* /OO00002Z6% 
*/00000270 
/OOOO02Z 60 
*/IOOOO0 2900) 
* JOQNOO S04) 
* /OO0G00510 
*SOVOO0S Zt: 
* /O00000850 
*/S/Q0000340 
*% /00000 250 
* J/QOO0O0N03S460 
* /O0000370 
-*/00000380 
* /50000 390 
= /Q0000400 
* /OQONN0410 
* JOUC0O0420 
* /O0N00G0430 
* /ON00GEL40 
* J/OCO000456 
*/000004&0 
* /O0N00470 
* /O00000480 
# /QOO0N00490 
*/00000500 
* /00000510 
* /O0000520 
* /00000530 


~ #/00000540 


*/00006550 
*/00006560 
*/00000570 
:/00000580 
*/00000590 
* /00000600 
3700000610 
*/00000620 


aw 


a 


— */0000063U 
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vi 226 SZ -- KIGHT-HAND [FARGIMN UF TRE INDEX PAGE. *=/O000C0640 
1% 23. TITEL -- TITLE GF TRE IMDEX. */00000650 
* 24. WIDTH --— COLURN HIDTH. x /OOCOO664 
7% 25. COL# -— A THWO-DIMENSIGNAL ARRAY PEPRESENTING A PAGE OF #/OGCGOOS70 
a wo GUTPUT UNGER THE P&GE TITLE. THE FIRST SUBSCRIPT */000006E0 
le REFERENCES A COLUMN PUNBER AND THE SECOND SURSCRIPT*/000O0ESO 

7 REFERENCES & LINE IN THE COLUM. * 700000700 
7* 266 ED -- ACCESSION NU? BER. */OOO0OT71A 
se 2%. IHESRTA ~~ CALL TG SURT PROGRAM. # /O00000 720 
*  . 26. IMP -- SIGMIFICANT TO QUARTERLY PROGRAM OMLY.e TMP = 1 * /OGCO00 730 
7. : FUR THE VT TO ED OR MNP MNUSBER SECTIONS IMP = 2 FOR */00000740 
7 ED OR MP MUMEER TO VT MUMBER SECTION. */00000 750 
a 26. ID -- COLUFN NUMSER BEING FILLED. x/Q0000760 
30. NH ~- LINE NUMBER BEING FILLED IM THAT COLUMN. * /0Q0000770 

a 31. RETCDE -~ KETURM CUDE RETURNED BY SORT TOG INDICATE SUCCESS */00C0G7#80 

* OR FAILURE. */00000 790 
7 32. KRFIELD -~ DEFINES THE TYPE GF RECORDS BEING SORTED FOR */GO000G800 
iE SORT. */OO0000610 
7 33. SFTELD -~ DEFINES TEE PARTS QF THE RECARDS TO BE SORTED. */00000820 
a 34. SKPH -—-— MARGIN FOR THE HEADING -HEAD- ON ITS PROPER LINE. */0U000430 
1% 35. SKPP -—+ NARGIMN FUR THE PAGE UnNBER GF THE INDEX uN ITS * /OOO0O0OH4G 
# PROPER LIF. - - * /00000650 
PBS SORTIN -~ CUNVERSION TAPE DATA SET(S). , * /O00000860 
7 37. SORTED -~ SORTED PISK SUBSET FILE. * /GO000 870 
* 38. STR -- STRI*FG USEN IN IMPUTING AND OUTPUTIMG GF FILE */VON00 6850 
Pe RECURS « = /OQ000Q0 890 
wa 39. UNDER -- USEN Ih QUARTERLY INDEX ONLY. THE LINE SEPARATING 00000900 
Pe . THE INDEX AND FOOTHNTE ON THE TITLE PAGE. | * /O0G0N0910 
“PR AO. VT -— DOCUMENT RUMBER FROM MASTER. x SQOO000920 
JK a /OQOND G20 
* INPUT TO PROGRAM: RSOIO000 Y40 
[3% —-CUMVERSION TAPE- # /QQ000 950 
PR ~ EITHER THE AIN GR ARM DATA SET IS USED FOR THE QUARTERLY *& /O0U00 960 
/* INDEX, OR BOTH DATA SETS ARE USED FOR AN AMMUAL INDEX. IF * SON0009T70 
pO OTHE DATA SETS ARE OM TWO SEPARATE TAPES, CUNCATENATE THE */Q0000 SHO 
/%* TWO DD CARDS. * /O0000 990 
“Pe =SYSiNe-. INPUT ON CARDS + /00001000 
| THE CARD INPUT IS ONE CONTINUOUS STREAM OF DATA. THE VALUES */000C1010 
ye OS PLS FOLLOWING VARIABLES ARE FUUHD ON THE CARDS IN THE */O00010720 
3 SAME ORDER AS THEY ARE LISTED BELOW AMD IN THE FORMAT LISTED */00001030 

aay i ara “BELOW, The 8 } 8§©=—— : 7 are ana —— a, eas — : xX /OQOOLO4G 
Oe _  =PAGE-= — -F4,0) : * /OO00CC1050 
ae oe" eS IZE- F(4,0} * 00001060 
/* -—WIDTH-— F (4,0) «/O000G107O9 
Pm ee MAR GH SO “F(4,0) _ * OOOOLOAN 
1 -SzZ- F(4,0) */O0001090 
pan INEM DR OO a0) at */Q00001100 
7% —-LINESI- F(4,0) ; ; */O000C1110 
page es LLIMEH2— "EF (490) ness : _ * /00001120 
SR ~LINET- - F(4,0) */OO0CG1130 
Spa enn NES 2 F(4,0) * /00001140 
iE -SPACE— F(4,0) x /OO0C1TL50 

. 7 nee eee KE COL~ — ee a “"F (4,0) ~ at 000011 60 
Te -MG~ ARRAY COL * F(4,0) : */COOG1LTO 
ee NPB ee EB 140) % /00001140 
/* ~NBH- F (4,0) + /00001190 
To pgm ee NBR ee ag OP ~ _ *x/Q0001 2u0 
7 -LT- F(4sQ) = /00001210 
TO RTT omen TITLE OO wee NACETY OO ee ee * /O00001220 
a -LH- F (4,0) */00001230 
pT me BADR ALY : 7 */O00001246 
x ; -INDX—_ AC) _ ee * 400001250 
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7% ~-QUE- Al) 
ce FOR QUARTERLY TiiNEX GHLY, READ If: 
PR ~LS-— (FOR SECTION 1) Fl4:0) 
1% ~SUB- ACLS) 
pe a Se (FOR SECTION 2) Ft4,0) —_— ” 
a ~SUB- ACLS) 
f* “TREY ARE DEFINED It! THE PRECEEDING SECTION AMD THEIR VALUES 
f* CAN BE FOUND IN TYPED WRITE-UP GR CAN BE SUPPLIED BY THE 
fs “"" YOCATIGSAL CENTER. 
f as 
“ye SPECIAL NUTE: i : 
f% UNTIL THE VOCATIGMAL CENTER APPROVES Aim INDEX PRINTOUT, USE 
ED “TRE PRINTER &S THE GUTPUT FILE. THEN AFTER APPROVAL FRO; THE 
1% CHANGE THE GUTPET FI!F TO TAPE.’ LIST THE TAPE ON THE 360/50 
/% “WITH THE TN CHAT! FOR UPPER AND LOWER CASE LETTERS. 
fs 
f ats Ae Be AE YS wiotiy Sele sheiSte Se She ats Sis sie's: oo Ste ste Sig Ste Ste -Sie suas) ayn Me Ste Me ais ae ais sts se ote fs fs oh cis Se aS Sis ste ate ahs are 3g ots ae ale Bs 3p ois ats sis aye x 
PRNTCV: PROCEDURE OPTIGlMS CHAIN s 
DECLARE : 
“COL FIXEN BIHARY (3190) % 
HEAD CHARACTER (13) VARYING, 
Oe a ee FIXE!N BINARY (31,0). — 7 
INDX CHARACTER (1), 
” —— LINEHI FIXED BIMARY (31,0) 
LINGH2 FIXED BIRMARY (31,0), 
—" LIMESL FIXED BITHARY (3130). 
LINES2 FIXED BINAKY (31,0)% 
“oer LI NET . PIXED BINARY (31,0), 
LH FIXED BINARY (31:0), 
“LS FIXED BIHARY (31,0), 
LT FIXED BINARY {3150), 
7 es: ae FIXFD BINARY (3140), 
HARG FIXED BINARY (3150)9 
ee HG SY “FIXED BINARY (3130) 5 
iNBH -FIXED BINARY (31:0), 7 
— NBR ° “FIXED BIWHARY (3120) 
NPB FIXED BINARY (31:0), 
ia PAGE FIXED BINARY (31,0), 
GUE CHARACTER i1)ds 
= ee SLZE ~~" “FYUXED BINARY (3120), °° 7 7 : 
SPACE FIXED BINARY (3120)5 
° "SUB CHAKACTER (48), 
§Z FIXED BINARY (3130); 
a “TTL OO CHARACTER (35), 
WIDTH _FIXED BINARY (3150) - 7 
? 
73 READ IN THE PAGE SFECIFICATIONS FOR THE INDEX PRIMTOUT. 


“QUARTERLY INDEX USES THE SUB-TITLE. 


GET FILE (SYSIM) EDIT (PAGEsSIZE,WIDTHsMARG+SZ,LINEHLeLINESI> 

“LINEH2,LINET+LIRES2,;SPACE+COL, (iiG(I) DO I 1 TO COL),NPB; 
NBH»NBR LT yTITL pyLHe HEAD, INDX ,QUE) - _ 

“" £16 Fl4)5 (COL) Fl4)260LT),F 04), A(LH},2 ACL) 

IF INDX 

TF INOX 


tou 


LINES2 + 13 
_LINES23 


THE OS 


ELSE MM 


gor 


. 


qo 


at 
vs 


by 


400001260 
700001270 
400001280 


*§/C60001290 
§Ff/OCOOLZ60 
*JOO0GLS10 


*/0G0013Z2U 


3235 


ails 
Pd 


7000013230 ~° 


F/OUOOLE4SG 
*/NO0001350 
7/O00001360 
*/00G01370 
*/OQU01L3 FO 
* /O0CQO13S90 


ACVO0L400 
700001410 
00001420 
00001430 
O00O01L44tu 
00901450 
00601460 
00001470 
“00001480 
006014906 
00001500 
OVOO151L0 
00001570 
OGN01530 
OVOO1LS40 
00001550 
O000CO1LS&0 
000G1 570 
O0O001LSY#O 
000015940 
00001600 
00NO1L610 
00001620 
00001630 
00001640 
00601650 
00001660 
00001670 
00001640 
00001690 
00001700 
_00001719 
00001720 
00001730 
00001740 


ONLY THE 00061750 


700001760 
QO001L 770 
00001780 
00001790 
00001800 


00001810 


00001820 


'Q' THEN GET FILE (SYSIN) EDIT (LS,SUB) (F(4),A(LS)) 300001830 


00001840 
00001850 
000G1 S40 
00001876 


1 


Fig 


15k. 
PRINTING OF THE INDEX TS -CCGMPLISHED IN THIS = LOCK. */00001 480 
ooGcel1 #0 
oo0001¢0a00 


: BEGIN; 0000110 
oe" PECLARE _ ~ oe ane _ id — _ : 00001 S20 
CULH(CUL»SIZE-M) CHARACTER (HIOTH)> 000012930 

Eb CHARACTER (10), SO00L 846 
IHESRTA ENTRYICHARACTER (45), CRARACTER (27), 00001950 
FIXED SINARY (31,0), FIXED SIKNARY (15,0)). OO0QO1LYAG- 

Imp FIXED BINARY (31,0), _ oco00ls7a 

° IND “"" EYTXED BINARY (3130), 00001980 
- J 7 _ FIXED BINARY (3140i% 00001990 
K FIXED BINARY (31,0), 00002000 

L oo FIXED BINARY (31,0), CU00Z010 
“EN - FIXED BINARY (31,0), 0000202¢C 
RETCDE | FIXED BINARY (1520), ; 06602030 

~""" REIELD CHARACTER (27), : 00002040 
SFIELD CHARACTER (45), 00002050 

~  SKPH FIXED BINARY (31,0), 00002060 
SKPP FIXED BINARY (31,0), 00002070 

SORT IN FILE SEQUENTIAL RECORD, 000020865 
SORT OUT FILE SEQUENTIAL RECORD, _ 00002090 

~""" STR = CHARACTER (20)% , 00002100 
UNDER CHARACTER (50) INITIAL ((50)'_'), 0000z211n 

~ OMT CHARACTER (10), 00002120 
3 : 00002130 
00002146 


000021 5h 


“BRANCH HERE WHEN THE SORTED FILE HAS REEM PRINTED COMPLETELY AWD 900002160 


ALL ITS RECORDS KEAN. © . . * 00002170 
00002180 


eres ; _ ; O0002190 
ON ENDFILE (SORTOUT) BEGINS O0000 2200 


CLOSE FILE (SORTOUT)3 _ . 00n0z210 
een ane 42 Lo ne apes eva ae eee ance 
IF (NN = 1) & (IND = 1) THEM GO To TESTS -_ -— 0uN0zZ230 

a. 2 ANN ae a are nee eae ya 


0000 22750 
PRINT THE LAST PAGE OF THE INDEX THAT HAS BEING FILLED AND’ PREPAREON0G2250 
FOR A NEW TITLE OWN THE NEXT PAGE. * /O0000 2270 
—_ ae nen os : 00002240 
00002290 


LOOPS: OG I = 1 TOL *® WRB +i + 13 00 Oe 00002290 

PUT FILE (OUTS) SKIP(1)3 -— 00002310 

Logop6é: BO J = 1 TO CUL3 , ae i ed 00002320 

PUT FILE (OUTS) EUIT (COLH(J,1)) 00002330 
somone seem ere SKIP (0) eCOLUMM (RG OI) ZACH IDTHI YS U0 OO “"""" 00002340 
COLH#{(J,T) = ' 45 00002350 

woe ee" ERD LOUPGS , 7s? ; ; 7 Oe 90002360 
END LOOPS; oe a 00602370 

“TF SKPP = MARG THEN DO3 ie eae ne La _ ah 000023450 
SKPP = SZ —- 33 00002350 

as ” ~~ “SKPH = MARG$ 0 7 90002400 
— he hehe he ENDs a See ere — 00002410 
ee . “ELSE DO; - = _ a 00002420 
SKPH = SZ -— LH + 1:3 a a 00002430 

pee Fe ee ee oe . SKPP “s “HARG? = > = ae ad 7 00002440 
END 3 a : 00002450 

pomente ee pee ekg aeets we ET Re nee cece me tet tee BOOB Sa RG 
; 00002470 

: a —— ~ Ys THIS 1S THE FOOTNOTE THAT APPERS ~~ C0002 4H 


__ON THE TITLE PAGE OF THE QUARTERLY 00002490 


184 


™~ 
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IF K=PAGEAINDX='G!? THEN DNs3 
K=SIZE-L In EMG (OUTS )-—SPACE-73 
PUT FILE(QUTS) SKIP(K)s$ 
K=PAGE? 

PUT FILE (OUTS) EDIT 
TATED ANNUALLY EEGINNING WITR THE FALL ISSUE 
2, tTANY DOCUMENT ITH AN FP NUMAER ITS 
4) EDRS BY USING THE'T, (APPROPRIATE WP NUMBERS!) 

(SKIP (SPACE) »COLUEN CAG O11-3)54(037)_,SKIPCOL) »COLUHE LNG 
(LI-1)9A(1),SKIPC1 


00002500 
00002310 
Q0002520 
00002530 
00002540 
00002550 
00002560 


(UNDER, '1!',"*THIS INDEX IS CUMUL',00002570 
CFF ARE. ,OQ002Z5AR0 
AVAILABLE FROM! 00002590 ~ 


00002600 
OOOO 24lG 


), CULUMM CHG 61)),4019),A051),SKIP(1),00002620 

CUOLUME CHG CLY-1),4(01),SKIP (1), COLUHM(HGO1)),A048) A018) 00002630 

SKIP CL)» COLUMM(EGO1))9A022))3 00002640 

mn END3__ a 00002456 

*AGE = PAGE + 13 00002660 

IF WE ARE DOING AM ANNUAL INDEX, THEN AFTER THE VT TO ED NUMBER 00002670 
SECTIUN IS FINISHED BE EMp THE PROGRAM. IF SECTION 2 OF THE A000Z68G 
QUARTERLY IMDEX IS FINISHED, WE END THE PROGRAM ALSO. */OOND 2496 
: 00002700 

: 00002710 

‘TEST: IF ITtP 3-= 2 THEM GU TO STOP3$ : 00002720 

IF INDX = t'A!® THEN GO TO STOP3 00002730 

, 00002740 

00002750 

TO PREPARE FOR SECTIUNM 2 OF THE SUARTERLY INDEX, “WE PUT A TITLE 00002760 


OW THE WEXT PAGE AMD REVISE THE SORT CURTROL STATEMENTS. ALSO, & 
“NEW SUB-TITLE IS READ Ife. RETURM FOR FURTHER PROCESSING. 


SFIELD = ' SORT FIELDS=(11_2,CHy091497_CHy Ad, STZE=E600 %3 
GET FILE (SYST) EDIT (LS2SUB) CF(4),ACLS))5 

PUT FILE (OUTS) EDIT (PAGE,HEAD,TITLs SUS,URIDER) 

“"  (PAGEsL INE CLINER2 ) »COLUMN( SKPP)9F(4),SKIP(CO) ,COLUNN(SKPH), 


ACLH) gL INECLINET ) 9X CCSZ-HARG+1—-LT) S248 ARG—-1),00LT) LINE ( 


OCOD ATTG 


#® /OOQ002 TEL 


00002790 
00002 800 
NG002810 
OOOD2 820 
90002830 
QO002Z 840 
00002850 


“LIMES2)yX CCS Z-HARG+1—-LS) / 24+ ARG-1), ACLS) ,SKIP(O) 2s KO(SZHhAKGO0002 B60 


+1—-LS)/2+hARG—-1),A(LS))5_ 


OOOGZ&7TO 


‘PUT FILE (QUTS) SKIP(1)3 00002 280 

.GO TO SORT; 00002850 

“  END3s 7” Bee ee i ro ia ie ee a * 90002796 
0000ZE1O 

00002926 

* INITIALIZE VARIABLES FOR PRINTING. 7 */O00002930 
- -; - / 00002940 
ae 00C02950 

-"“QPEN FILE (OUTS) STREAM OUTPUT PRINT PAGESIZE (SIZE+4) 00002960 
3 00002979 
“IMP = 13 00002980 

K = PAGE; 90002896 
“po I = 1 TO SIZE-M3 00003000 
DO J = 1 TO COL; 00003010 
“"“COL#H(IJ,T) = '3 areata laid Fey RS eT ee 000C3020 
ENO BLKOTs$ 00003030 

IF ©UE = 'L!? THEM DOQ$3 . 7 00003040 
SKPP = MARG3 00003050 

i SKPH = SZ = LH + 13 00003060 

END 3 Pee asics Bete 00003070 

_ momen" ELSE DOS (OU aa 00003080 
SKPH = BARG$ 00003090 

SKPP = SZ - 33 90003100 

ENDS - 00003110 


7 PUT A TITLE ON THE TITLE 


WE ARE DOING 


PUT FILE 


( 


PAGE. 


A&A QUARTERLY IRDEX. 


UUTS} EDI 


T (PAGEs,HEAD) 


156. 


PUT A SUB-TITLE 


Pr | 


1HE PAGE IF _ 


“TBAGEs LINE (LIMNERL) s COLUMN (SKPP) 9F 04) 9 SKIP(O) sCOLUMNESKPH) y | 


A(LH))3 


“IF IDX = 


PUT FILE 


{ 


"AY THEN 


PUT FILE 


GUTS} ED! 


(LINE(LIMESI-1) 4% 
“LIYMESL ) eX C(SZ-hARGH+1L—-LS ) /2 4H SRG 


-LS)/24+NARG-— 


PUT FILE 


SFIELD 
RFTELD 


Wott 


CALL IHESRTA(SFIELO,RFI 
(P28 ETURM CHDE 


PUT EDIT 
(SKIPA3 


( 


1) oii 
GUTS) SKI 


/# f4AKE PREPARATIONS FOR 
“" “RETURN CUDE. 


SQ 


RT FIELDS=(4979C 


DN; 
(QUTS) 
GO TO DEF$ 
Elias 


T (*2',SUB,UMDER) 
((SZ-iARG+1~LS)/2+hARG~ 


LS))3 
P (1)3 


SORT AND CALL THE SORT ROUTINES | 


RECORD TYPE=FyLENGTH=( 20) 


TS 


YeA(15),F(3))5 


END LOUPLS | 


THE COLUMNS » 


o.. 
ERIC 


‘IND = 
IF IND = 
~~ “THEN DOS 
IND 


“THE PAGE ON 


IND + 137 


“SUBSCRIPT SO A MEW 


HUWEVER ¢ 


(COL+1) 


ee 


PUT DATA INTO A CGLUNN UNTIL THE COLUMN 


6 
5 


ELM 745056 ,RETCDE) § 
9RETCDE) 


IS FU 


SKIP(LIWESI-LIMEH1) § 


LALS) ACL) LIVE 
L},ACLS)sSKIP(O)s X((S 2-H ARG+ 100003230 


LLe 


NN = 13 
IND = 15 oo 
OPEN FILE (SORTOUT)$ 
DO I =1TOLS 
po J = 1 TO NPB3 
~ READ FILE (SORTOUT) INTG (STR)$° °° 7 
GET STRING (STR) EDIT (VTsED) 
“JF CIMP = 1° THEN PUT STRIHG (COLHCINDs HN) ) 
(A(10) 9X (HIDTHH 
ale “ELSE PUT STRING 
“NAS NN FO 1S 
ENO LOOP2; 
“RACES NN + 13 00 ee 


(A010) 2A(10))35 


HeA)sSIZE=E6900 '3 _ 


PRINT THE 


FOIT (VT,ED) ~ 


20)94(10))5 
(COL#E( IND: iN) ) 
AACLON,XCHIOTH=20) ALON 5 


EDIT. 


HAVE BEM FILLED FOR A PAGE+s 


THE OUTPUT FILE FIRST. 
NEXT PAGE AND INITIALIZE AS NECESSARY. _ 


1 


ga 


ty 


THEN, 


COLURN CAN SE FILLED. | 


NEW 


(ED:VT) 


[Fo 


THE 
COLUMN. 


ALL 
WE HUST PUT 
“pRINT A NEW TITLE OW 


FILL AL */90000 


00003120 
00003130 
00005140 
00003150 


*/00005160 


00603170 
00003180 
06003190. 
00003200 
“90003210 
00003220 
00003230 
00003240 
00003250 
00003260 
00003270 


00003290 
00003300 
000033190 
00003320 
00003330 
# /00003340 
06004350 
00003360 
00003370 
000033580 
90005390 
00005400 
00003410 
O0008429 
O00G S430 


* /00003440 


00003450 
00003440 
ened 
000034 

sates 
00003500 
60005510 
00003520 
00003530 
00003540 
00603550 
00003560 
00003570 
00003580 
00003590 
906003400 
00003610 
000034620 
00003630 
00003440 
00003450 
00603660 
3670 
00003680 
90003690 
00003700 | 
090003710 
00003720 
00003730 


157. 


LOOP3s DO 1 = 1 TOL * HPB +t - i: ~ QOUGUBT4u 

PiT FILE (GUTS) SKIP (1)3 OOCOST5O 

7 LOGQP4: bO J = 1 TO COL: OCCO37TE0 

PUT FILE (OUTS) EGIT (COLE ta,1}) OOCUS77QO 

case - (SKIP (CG) yCOLUMM (GOI) } AC TDTH)) 3 " "66003780 
COLe(J,I) = 1 te O0OGN3790 

a EMD LOUGP43 00003800 

; END LONP3; OOO03E10 

ee IF INDX = 'A* THER GO TO NO... OUGLEH26 
OQOOUZ630 

mae OCUGCBZESO 
7* THIS IS THE FOGTHOTE THAT sPPEepsS CGOOS65G 

° = OF TRE TIVLE PAGE OF THE OUARTERLY OOGZHANQ 
INDEX. / OCOORS7TO 

7 060036550 
CAGO3R9N 

6S “TF K = PAGE THEN (00 Ut See ey ~ 00003900 
PUT FILE (OUTS) EDIT (UNDER,'1', "THIS TRDEX IS CUMUL 's90003910 

—_~ . TATED ANMULLLY BEGIBIFING HITH THE FALL ISSUE OF ARB. ts, O0G003920 
'2',tANY DOCUMENT WITH AN fh MUMPER IS AVAILABLE FROM! 00003930 

r' EDRS BY USING THE',* APPROPRIATE NP NUMBER.) OOOUs940 

(SKIP (SPACE) sCOiLUaN (iG (1)-3),A037)ySKEPOL) » COLUMN (NG DOUO3 950 

ata _ 2D 1) ACL) SKIPC1) 9 COLUM (BEG (1)2,A019),A051) + SKIP(1) 9 C0603 940 
COLUMM(NG (19-1) 2802), SKIP (1), COLUMN(HE(1)) A048) yA01 8) 0UL03870 

= . 9SKIP (1) yCOLUEN(MG(1)),A022))3 GOOCH 588K 
NOLWR: Lo = NERS OOCEUS990 

: ~ PAGE = PAGE + 13 : a ; OOON4GOt 
IF SKPP = ARG TREN DOS OONN4O70 

= aaa : om SKPP = SZ - 33 0°00 7 GU0NGO20 
SKPH = MARG3 OGCU4Ud SH 

-_ END 3 — OCOC4040 
ELSE Do; 00094050 

~ SKPH = SZ = LM # 130° 7 ~ oogg4aaer 

SKPP = ARGS _ OOUG4EO TO 

Ry pe ar Merten (eens -_ : END ° - —_ : Fe ae . O00040 60 
PUT FILE (UTS) EDIT (PAGE,HEAD,TITL) COcK4nen 

— nites (PAGE sL THE (LIMER2) »COLUMN(SKPP)4F (47) SKIP(O) »CULURIM( NUGO4LOO 
SKPH IgA (LH) +L TNE (LINET) 4X ( (SZ—MARGH1-LT) / 24 ARG-1) 9 AC CON04110 

—_ LT))3 : OOCN41 29 
IF INDX = "A THEN Dts OO0G41 30 

ie a leg at ak eee / PUT FILE (GUTS) SKIP(LIMES2-LINET)$ 00604140 
NMO= 13 00064150 

ee ee a ~GO TO LOOP]; ee 00004160 
END 3 c a 000C4170 

aes PUT FILE (OUTS) EDIT (SUB,UNDER) Ye 00004120 
(LINE (LIBES2 1X ((SZ~HARG+I-LS)/24iHARG-1) yA(LS) SKIP (0100004190 

ee “9 XC(SZ-NARGFL=-LS)/24 ARG-1),A(LS)) 30°07 00604200 
PUT FILE (OUTS) SKIP(1)3 tek es 00004210 

SPR Hike Raced Pig en ee en ane ne eee Ag ee 
NN = 13 00004230 

als Pye Frey nee? ‘Go ‘TO LOOP13 i ~ ri ia SB Sa ae Ge yeas ee a ae oe : 00004240 

, . 00094250 

serena nee NAc me oe eens eee och inh Lena nhoni Gh aese ene Reueiiy  aavidesnulagidue tees ssi ou py eye: 
/* CLOSE ALL FILES AND WRITE GUT THE LAST PAGE NUMBER USED IN THE 00004270 
oes" INDEX PRINTUUT. ee oe i * 00004240 
. 00004299 

PRUE ES oe a Bae Gecste RARE Soe aut Gudeubiees Yee auE GOL. “Sunes data Eeeeae ee pabue 6 
STOP: PUT FILE (GUTS) PAGE; siiilbietnan. ‘nalataests aoceslatuidieeeio f onausee one, OQOC4S1G 
“ee "CLUSE FILE (OUTS); a a a a es SS VO004G4 2G 
PAGE = PAGE ~ 13 a a 00004230 

. PUT FILE (SYSPRiNT) EDIT (*LAST PAGE USED IS ',PAGE) 000043409 


_ ESKIP(3),A(18),F(4))3 00004350 


18% 


00004360 
00604376 


a ei kK s °° OC 


TEND PRNTCVS 
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a ee ee ee ne Le ea a et ee sorasemer ad aan 
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SUBJECT ANNUAL 


“ff Sis sls gis att sic aie ofc ote bis ate we ate ate ste De ee te tte 
J 
7 7 ANNUAL SUBw!IECT IwDExX PROGRAS 
[8 
"8" PROGRAMMERS RONMIE &OS EL: : - : 
7* 
/* “PURPOSE? THE PROGRAM PRODUCES ThE 4NRUAL SUBJECT IhpeX. IT 
1 TAKES ThE & DATA SETS FROM THE QUARTERLY OUTPUT AWD 
SO Fa” MC OMCATENATES THEM TO FORE UNE LARGE DATA SET. THE 
1 SORT/IAERGE SORTS THESE RECORDS AMD “FE PRINT THEM UNDER 
Pa me" SPECIFIED FORGAT TO FORK THE [DEX PRINTOUT. THE 
1% SORTED DATA IS DELETED, BUT THE 8 DATS SETS WHICH ARE 
Pe ON 2 TAPES, ARE KEPT. 
[8 
7* DEFINITION OF VARIABLES: 
3 le BLK =-—- RURBER UF PIECES ITHTO “HICH THE SURJECT KEYWORD 
gee Se MUST BE BROKER UP SO THAT IT WILL FIT IW A CULUB 
a WIOTH. 
2e CNT -- THE UMBER GE GGCURENTS wR: ABOUT SOME KEYWORD 
1% I! THE YEAR -pHe. 
es Be COL -- HUMBER GF CULUHMS TH A PRINT-OUT PAGE. 
1 4&e DURAN -- INPUT UR GUTPUT STRING USED TG CREATE OR RETRIEVE 
en acai RECORDS. _ S ; 
/* 3° FV -- THE VT NUMBERS OF THE DOCUMENTS IRITTEN ABCUT SOME 
ny 4 as KEYMORD If THE YEAR -P~, , 
18 6- FRST -- THE PAGE MuUNBER UF THE TITLE PAGE. 
o /38 %e FVYT -- A STHGLE VT NUMBER. _ 
7 Be HEAD -—- PART UF HEADING GF EVERY PAGE OF THE IMDEX HEICH 
7 , LOOKS LIKF talin/ake 66~70', 
3 G9. THESRTA -— PL/1 CALL TO SORT. 
7% 10. THAK -—- TIDICATES WHER ALL COLUMHS CiF A PAGE ARE FULL. 
78 dle IP -- IsPICATES ALL DSTA HAS BEEN PUT ITO IMDEX FORM 
fxs + AND THE SORTED FILE HAS BEEN READ ALL THROUGH. 
16 12. IND -- REFERERCES TO CURRENT COLUM EEIWG FILLED. 
OPE 13. KT -- THE mURBER OF LIMES UF OUTPUT IT TAKES Ti PRINT 
1% PUBLICATION YEAR AD THE VT NUTRERS UF DOCUMENTS 
Le ae WRITTEN THEN. TRE VT MUNEBERS ARE ROOKEN UP Tito 
1 TROUSAND IMTERVALS; 0 - 999 LISTED FIRST; 1000-1999 
~ [i _ LISTED MEXTs ETCe EACH IMTERVAL STARTS A NEY LINE. 
7% 14. LIM -- THE NUMBER GF VT WUMBERS THAT COULD FIT ON ONE LINE 
te meee "OF A COLUBK. — re se ean , : 
2 15-6 LINEH] -—- THE LINE NUMBER ON THE TITLE PAGE ON WHICH THE 
/ oo oo PAGE fMUMBER AND ~—HEAD~ APPEAR. : 
a 166 LINEH2 -— SAME AS -LINEH1- EXCEPT fOR ALL SUCCEEDING PAGES. 
ey A 1%. LINES] -- LINE MUMBER GN THE TITLE PAGE NIRECTLY ABOVE THE 
7s STARTING Li8E OF THE Imex pRiImntToutT. 
ry £2 Ge LINES2 -- "SAME AS -LINESI1— EXCEPT FiR ALL SUCCEEDING PAGES. 
* 796 LINET -—- LIE NUMBER ON ALL PAGES EXCEPT THE TITLE PAGE | 
OPT "WHERE 7:/E TITLE APPEARS. ~ a , — 
7 206 LN -~ COUNTER WHICH TELLS THE LAST LIHE ON A PAGE THAT 
oo Pee WAS FILLED WITH INFORMATION.” IT COUNTS HEADING AND 
a INDEX, AiO MAKES SURE WE DON'T EXCENE THE MAXLiaUli 
mene 9 pment a ens BER eT gp Hee hate Sear eens esc on Mera nee EEE oo 
i 21. LNE -- COUNTS THE WUMBER OF VT NUMBERS BEING PUT ON A LINE 
a ~ “"" *"" $O THAT THE LIMIT iS WOT =XCEDED, ._ : ; 
ae 226 LTH -- LEHGTH OF THE INDEX TITLE. 
pe Ze fF ARG ~= LEFT-HAND MARGIN OF THE INDEX PACE. _ , 
fi “4. iG -—-— ARRAY OF COLL: SARGINS EACH 2.5 32::RED FRG COLUMN 1. 
ey 4.3 "25 e MT -— DESIGNATES WHI, SITERVAL THE “UMBER FALLS Ife 
/* HT # 1000 TO NT * 1000 # vig, -..Hé OT = Of Ly Preece 
fis 9S THE TRTERVAL.- 7 
ye 266 WN -- COUNTS TRE LINES AS A CUM IS FILLEGe THIS DOES 


ee 


F/OGCCOGaAZD 
# JOQOGOGUE SE 
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#/OO0Q00G 56 
® JOONOGC A 
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*/O0000U8% 3 
*SOOOOOLED 
x SOONOULIO 
~*~ /O0000120 
*% SJO00001L3N 
*/O000001L4END 
*/OOOGULSO 
= /O0000 140 
*/O0COG1 7 
*/ONGGOLNE 
# JOOOO0O1 SO 
x /OO000700 
™ SOON00210 
* /O0000220 
*/00000230 
* /Q90000 240 
*/0G009000250 
*® /QVO002E60 
*/OGG002 TO 
*/GOQQO 2bh0 
*SOO0GOL SN 
*% JOODOGO3RG 
*/OGOO0O03LO 
¥*/O00003B20 
* /OOGO0330 
SOOOCOOOL SS 
*/OOG00T SG 
*/OOO002 *) 
e/SOCGO03 7 
 /JOOOVU 360 
*/OOO00B YY) 
* /O0NCI400 
* JOQOOOQ04 LO 
*/OOO000426 
*/00000430 
*/OC000440 
* /Q00CG04590 
* /O0C00460 
* /O000047N 
x/C DO0UGHO 
* JO00004690 
* /OO000 506 
*%/O00Q0510 
* JOO0CO520 
*/00000530 
*% /OON0C 54.0 
* /O0000550 
*/00000560 
*/00000570 
*/OON005x40 
*/00000596 
*%SO0000 600 
* SJOO00006149 
*/OCNOO620 
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“NOT INCLUDE HEADING. 
UUTS -— THE GUTPUT FILE FOR THE J&eBDEX PPTNTOUT. 
Po=~~ ARRAY OF PUSLICéTICN DATES FOR A KEYSOPRD MAME tIHEN 
RNOCUMEMTS WERE PUBLISHED ABRQUT THAT KEY"ORD Wane. 
PAGE --— PSGE HUBER GE A INDEX PAGE. 
PREV -—— KEYWORD bHICH HAS JUST HAD ITS DATA ADOGED TG THE 
INDEX PRINTOUT. 
PUB -- A PUBSLICHTICN YEAR FROM A SUBSET FILE RECORD. 
QUE -- INDICATES “WRETHER THE TITLE PAGE ILL &8E Ohm THE 
LEFT (L) (iP RIGHT (&%) SIE OF THE PUBLICATIOM. 

RETCUE -- THE Cuw& RETURMED BY SORT3 'O! i#EAMS SUCCESS AND 
816! EAMS FAILURE. 

RFIELD -— DEFINES THE RECORDS BEING SORTED FOR SURT. 

SFIELD -- DEFIVES WHAT PARTS OF THE RECORDS ARE USED AS | 
THE SORT KEY FOR SORT. 

SIZE -- THE HAXIAUis LENGTH OF A PAGEy IMDEX AND HEADING. ~ 

SKPH --— THE COLU GN -LINEHI- OR -LIWNEH2— WHERE -HEAD- 

SHOULD BEGIN TO SE PRINTED. 
SKPP --— THE COLUMM ON -LINEH1-— OR -LIWER2- HHERE ~PAGE- 
SHOULD BEGIN: TO BE PRINTED. 

SORTIMN -- THE EIGHT DATA SETS OF TAPE THAT ARE THE INPUT 
TO SORT. a 

SURTOUT --= UCUTPUT FILE VAITH TRE SGRTED RECORDS. _ 

SUBJ -- KEYHORD MAINE FROM A SUBSET FILE RECORD. 

SZ -- RIGHT-RAKD PARGII. OF A PAGES 

TITLE -- IMMEX TITLE. 

Vo-- CHARACTER ARRAY OF VT BNURBERS FOR NOCUMENTS WRITTEN 


ABUUT Shiels KEYYORD Im SORE YEAR. 


VT SU. E SUBSET FILE RECORD. 


—~ DUCUREMT MUHRER FROM 
WO -- NUHBER OF -LAXITMUH SIGNIFICANT DIGITS IM A VT WUMBER. 
WIDTH -- COLUFA WIGTH Til A PRIWTOUT. 
COL ~- REPRESENTS TES ITnDEX P&RT OF A PAGE. 
PO -~ PIECES THTO WHICH A KEYWORD IS BROKEN UP SO THAT IT 


FITS ImiO A COLUME. 

TEM P-OUT THE ACTUAL SET-UP UF HOW THE COMPUTER PREPARES 
THE DATA FUR OUTPUT. THE PATA IS A DATE AND 

ALL ITS VT MUMBERS. , 


— 


~JNPUT TO THE PROGRAM? 
-SCRTIN- 

“" THIS 

CONCATENATED 


IS YOUR & DATA SETS SAVED FROM THE QUARTERLY RUNS, 


TOGETHER TO FORM ONE LARGE DATA SET TO BE 


~ PRUCESSED. 


-SYSTiw-+ 
“ THIS IS A COMTINUGUS STREZE# 


Ti.PU Om CARDS 


OF DATA OM SEVERAL CARDS. THE 


DATA IS VALUES FOR THE VARIABLES LISTED SELOW, IN THE SAE 


—-PAGE- F(4) . 
“=-SIZE- — F(4) : : ; 7 
-WIDTH- F(4) 

“=WD= F(4) 0°77 
-MARG- F(4) 

epee er _ ae 
-LINEHL- F(4) 

“=LINESL= F(4) : a 
-LINEH2-— F(4) 

“=@LINET-— 7 O F(4y 
-LINES2- F(4)} 

letbe ct BA) ne = _ rei itiesiieen 
—hG- ARRAY COL * F(4)} 

“=-LTH- F(4) > . ” 7 
-TITLE— ACLTH} 


* /ON00063C0 
* /OOCOOS40 
* /O00CO652h 
*/OONCTD6SH 
* JOOUO06 70 
*/OQ0O004HN 
= /OOO00690 
= /OO0O00QTONA 
= /OOOOGTLE 
= /ONGOO 720 
x SQOONOOQOT RE 
*/OON00 746 
#sOQOC0NTS0 
* /OOUO00 74D 
*SOONOOUTTO 
*/JOOOG0T<EH 
*/OOOO007TEH 
*/JOO0OO8GO 
*/OO0006810 
* JOOCOOS20 
* /00C00830 
* /O0000 S46) 
*/OUCOO850 
*/OO0000 £4) 
* /O0Q0UU057 
#*SJOQON0O REQ 
*SONOGOUOR GN 
# JOGOGO Sat) 
eLSOOGCGOUIL CG 
* JOOGON0 820 
*/SOQONN0GEO 
* /OON00 940 
¥/OOCGO9TSG 
*SOONGO PHY 
*SJONGOQYTO 
*/UNNOG CBO 
*SOOU0OOSS(r 
#/OOCOLOOG 
* JOGOGLOLG 
*S/OOCOLOZG 
*/OOCOLOSY 
*/OOOO1LA40 
*/O00001050 
*/OOCOLOEG 
#x/OOCO1O TO 
#/OOOOLO EO 
*/JOO001090 
*/00001100 
*/00001110 
*®/OOO001L1L2N 
*/00001139 
* /OOCULLEO 


~#/00001150 


*/00001160 
- 00001176 
#/OOQGOTLEO 
*/00001190 
*/00001 200 
*®fOOVGLZLGO 
*/OGOO1LZ260 
*/OOQCOL2Z2% 
*/OO0001 240 


TO ~ eee SHEAD~ oe ie 
1% ~QUE~ 
TE THESE VARIABLES GIVE 
px DEFINED IRDIVIDUALLY 
PECAN BE OBTAINED FROM 
fe CENTER PERSOMNEL. 
; 2 
| /% SPECIAL MOTE: 
a i: PRINT THE ANNUAL IMDEX 
7s APPROVED RY THE VOCATI 
7% MAGNETIC TAPE AND TEIE 
| pe CHAIN FOR Ait UPPER ARD 


ANNSUB 8s 


| PROCEDURE OPTIONS ( 

“DECLARE 
BLK 

i meee CNT CTS UO 

COL 

DUMMY ~~ 

FV(15975) 

4 ERS TO 

§ 

3 


FVT 
“HEAD ~~ 
I 
~ THESRTA 


AS HE TE SE IS 


TET YEN BINARY (31D O) 9 


“CHARACTER 
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~~" 400001250 
700001260 
*/00001270 
*/06001286 


* 700001290 — 


00001300 


*/00001310 


a 00601320 


OCD By Ne 
ACL) - oe 
THE CUTPUT SPECIFICATIONS AND ARE 
I= THE PRECEDING SECT TOM. THEIR SMA 
“TRE TYPED WRITE-UP AWD THE VOCATIONAL ~ 
‘Oh PLAIN PAPER UNTIL IT HAS aa 
QvAL CENTER. THEM IT CAN BE PRIRTED DN 
TAPE CISTED On THE 366/50 WITH THE Ti 
LOWER CASE INDEX PRINTOUT. | ; ; 


*/G00013 
2800001340 _ 
*/00001350 
700001360 
*/00C01370 
= £0000 1380 


30 


FIXED BIMARY (315,04, 
(13)5 


FIXED BINARY (31,0), 


“ENTRY (CHARACTER (59), CHARACTER(28) y 


00001390 
MAI) 3 2 00001400 
at ie 00001410 
FIXED BINARY (31,0), 00001420 

~" FIXED BINARY (31,0}, ° ©” “00001430 — 
FIXED BINARY (31,0), es — 00001440 
“CHARACTER. (208), 0° a = — ‘00001450 
FIXED BINARY (31,0) INITIAL ((1125)0)) ~~ 00001460 


00001480 
00001490 
00001500 
OOOOT S16 


3 FIXFR BINARY (31) 0))FIXED BINARY 00001520 
: RI Senta ee ee tease et eee eee Oe oe Aa somes eee" OV001530 
IMAX EIXED BINSRY (31,0), . 00001540 

See eresses sees INPUT SSRs FIXED “B INARY { 3a) 20 jy on eee ee ee Ee “0000 1550 

IND FIXED BINARY (31,0); _ 0001560 

SR SR Se neve ey PRARY (el¢Ois °° 00601570 

K FIXENM BINARY (31,0), 0000120 

a ea ig aT ENR NAN (SEU) ee UL aL 

L FIXEL BINARY (5190), 00001600 

eae eam naa cea “RF TXED BINARY (31,0), 000 "90001610 
LINEH1 FIXED BINARY (31,0), 00001 6-.0 

aaa maine ““LINEH2 7 ““"FYXED BINARY (31,0), | ~ 5001620 
LINES FIXED BINARY (3190), 00001640 


LINET FIXED BINARY (31,0), 00001660 
NE TXED BINARY (31907 5— - oe ~ "90001670 
LNE FIXED BINARY (31,0)> a 00001660 
ETE TXED BINARY (313002 | . a“ ~ 00001690 
ARG FIXED BIRARY (31,0), _ _ 00001700 
SCZ TO “FIXED BINARY (3730), °° & — "000561710 

MT _ FIXED BINARY (31,0), ee een soo te 

ee Ne “FIXED BINARY (31,0); — 0009173 

. NN FIXED BINARY (31490), 00001740 
OUT TLE STREAM G Oe ee OUR TES 
P(15) CHARACTER (2), 00001760 

PAGE ~~“ EFXED BINARY (31,0), ce OO0OL 770 

PREV 7 CHARACTER (132) VARYING: 00001780 | 
a ~~puB CHARACTER (2), °° ° 00001786 
QUE : CHARACTER (1), 7 7 00001800 
oe OT RETCDE - “FIXED BINARY (I5,0), _ , “00001810 
RE IELD _ CHARACTER (28)y_ = 00001820 

aa “—SFIELD “CHARACTER (59), 00001830 
\ SIZE oe FIXED BINARY (31,0), 00001 840 
oe SKPH eee SE IXED BINARY (3130). 00001850 

: : SKPP a _FIXED BINARY (31y,0)_ 09001 860 

Qe 


ER 


JA Fut Toxt Provided by ERIC 


ETN ES 20 ET XED BINARY 03150) 


DO00L4 70 — 


“00001650 ~ 


163. 
eee SORT IA TT" FILE SEQUENTIAL RECORN, ~ O07 77 “GB G01870 | 
SO8TCUT FILE SEGQUEMTIAL RECORD, ss OHO BEE. 
re “Supls CHAF ACTER '200) VARYI“G, 00001890 
SZ FIX=D BIMASY (31,9), 00001900 © 
TIT TT TO CHARACTER (50) VARYING, OT 01910 
: VOl5,75) + —s CHARACTE? (6) VARYING: _ (000001 920 | 
— VT oe CHARACTER (6) VARYING, 00001930 
OL FIXED SIWNARY (23150)5 2 00001 940 
HWIOTH “FIXED BINARY (31:0), 00601950 
— shee ee it ee St ee te cee tens eee OOO LEH 


50003970 

; — CB 00601980 
rae SCRT THE & DATA SETS, FIRST BY SUBJECT NAHE, THEN BY PUBLICATION#700001990 
re DATE, AMD FINALLY BY VT SUt4s BER, ALL Ti ASCERDIFG OR OER « PRIMT *f/O00026G00 
“7* "" THE RETURN CODE, AM INDICATION OF SUCCESS. “WRITE GUT THE SGA STED* /00C02010 
is FILE AS A CHECK It CASE OF TROUBLE. _ 00002020 


00002030 | 


Po seats ced lepeetaae oo.  , 00002040 
“TW ™SFIELD=' SORT FIELDS=(15Z00,CHy fs 20142) CHs Ay 203,69 CH, A) SIZE=EI9G9 #3 00602050 
RFIELD=' RECORD TYPF=F,LENGTH=(208) '3 00002060 
ome "CALL THESRTA (SFIELD: (FIELD, 45056,RETCUE); | a 00602070 
PUT FILE (SYSPRINT) EDIT (RETCDE) (SK1P(3),F(3))3 —— OOOO 2060 | 
a et ere Mee Te AEG a See Se See a Ee ie es = Ser “90002050 
secetie when de Sete . meres ee ee ee —-. 00002100 


7% READ IN THE GUTPUT SPECIFICATIONS FOR THE INDEX PRINTOUT. */00002119 
00002120 
00002136 
GET FILE (SYSIN) EDIT (PAGE,STZEsHINTH yD, MARG, SZyLINEH1,LIMNESIOON02140 


“sLINEH2,;LINET ,LINES2,CGOL, (GCI) OO I = 1 TO COL)yLTHyTITLEs Ooooz2150 

Sadia ejtpe etait OE, ee Bh edo anin nw pbecadigeeeeh pd uchinbeVameneeian: smnee Go. ex jen SOOUZTSO 

| (13 Fitjis(COL) Fl4),ACLTH)yAC13) sA(1))3 ~ 00002170 

ee ee ee Sree ee ee tee oe ee, 900021 80 

aes ee ais 000G2190 

7 s% PRINTING IS DONE IN THIS BLOCK. __ _____ * 00002200 

arene ae aa - a ae 00002210 

_ _ _ 8. 00002220 

BUSINESS: a — 7 ~~ pe 00002230 

Sr 22, eee ee ee rn ee 00002240 

——"" "DECLARE ee ee ~— 00002250) 
COLE (COL: SIZE- -LINES2) CHARACTER (WIDTH), = 00002260 | 

Bee ay ~~WHEADR : ENTRY (FIXED BINARY (31,0105 00002270 

PC (4) CHARACTER (WIDTH) VARYING, a 00002280 

TEMP OUT (STZE-LINES2) CHARACTER (WIDTH) VARYING, ~ “00002290 
ae 00002300 | 

Oe ep 8 ee ep, oe a eS 00002310 

00002320 


TE WHEN THE FICE” OF SORTED RECORDS HAS BEEN FULLY READ ARD PUT INTO#/00002330 — 


fh THE INDEX, WE TRANSFER HERE. THE ASSIGNMENTS MADE HERE WILL * #0002340 


TOTP TR CCOW TRANSFER BACK TO THE FLOW OF ACTION, WHERE THE SET-UP FOR *709002350_ 


/* THE LAST PAGE CAN BE PRINTED, AND WILL CAUSE PROGRAM . */00002360 _ 
ET TERMINATIONS ene a oo EF OCOOZ370 

: a 00002380 
a aaa Fg ee ~———~"§ 0002390" 
ON ENDFILE (SORTOUT) BEGIN; 00002400 | 

TS TMP ES LS : ; “00002410 
_ SUBS = 927935 0002420 | 

"GO TO TEST: == = ‘00002430 

_END; 00002440 
a TEESE G (0101 0).°1 > 6 

; _ 00002460 
TT MAKE TNITIALIZATIONS FOR PRINTING QF THE INDEx. _ */00002470. — 
ee ee ee ee eee ee Tee ee se 


. moe ee eee | = _ 
ERIC | . | ‘ . . 


16h. . 
CT ee Oe a — TT 00002496 
BLKOT? O89 I = 1 TO SIZE-LINES25_ se 00002500 
~ oe" """po 2 = 1° TO COL: . re aaa 000025164 
_ COLH(S,T) = § 5 —— __ 00002520 __ 
TEE pes ee see OD O002530 
END BLKOT: ae ae ee 00002540 
a OPEN FILE (SORTOUT ) 9 (0000 rn re ~ 00002550 
ee. FILE _ (OUTS) CUTPUT STREAM PRINT PAGESIZE(SIZE + 4) _, 0002560 
oo : a 90002570 
IMP = 0; eee - eee 00002586 | 
ae TNO SP ~~ G:.002590 
FRST = PAGES Sissy HP Here chs ates dteoaee lated! cat at Saath heats, cass alates cei: ... SOLON 
om —"""“TMAX = COL + 13 : oe 9GN02610 
LIM = ({HIDTH - 4)/(HD + 2); Co oe 00602620 
= PUT DATA (LIil): , 6 Oe a ~ 00002620 
NN = O3 a ee see, tee __ 00002440 | 
TS STE QT CO002E30 
TF GUE = 'L' THEN DO$ __ Wee 00002660 
oe ren SKPP = MARGE aa 00002670 
SKFH = SZ = 123 0008 2680 
a ARES SS ENDS aie = “90002499 
ELSE DO: e00g2 THO 
BS EE ee DP aa SF a os Se AA OQ 
SKPH = HARGS ; wee 00002720 
eyes 7 - ees EN ee ee 90002730 
: ; 0000274) 
a ee Stefanie ih tarts hana a i cae, aH DEER Te 
% PRINT THE HEADING FOR THE TITLE PAGE OF THE INDEX ON THE OUTPUT */000027e0 
AE CR TLE. — was pee yf a CE aA a a a a a */O000027 70 
0002780 
arta lien ees sna MeN ie EE ap BRE IED 
PUT FILE (OUTS) EDIT (PAGE+HEAD) 00002800 
een CPAGE LINE (CL AINEHL ) y COLUMN SKPP YGF (C4) SKEP TO), COLUMN(SKPH)3 ~=© «00002810 


AC13))3 


cael “PUT FILE “COUTSY SKIP CLINEST=UINERL S$ — 


/* RF aD IN THE VERY FIRST SORTED RECORD AND BREAK THE RECORD UP. # /00002860 

“7 —— TO ITS INDIVIDUAL PIECES OF DATA. 7777 “3 400G0287C 

00002880 

ee ee ee a 0002890 

READ? READ FILE (SGRTOUT) INTO (DUMMY); - oo =, 00002900 
eee GET STRING (DUMMY) EDIT CSUBJ3 PUBS EVT) — “00002910 
eee (A200) sA(2)9F (649073 me oof 00002920 

~ ° GET STRING (DUMMY) EDIT (vt) 00002930 

1X(202)sA(6))3 00002940 

ee CALL DEL ETS Too as ~~90002950 

N = INDEX(SUBJS,'"") 3 00002960 

ee TRON = 0 THEN PUT EDIT (1e8NO END OF SUBJECT NANE IN ™,SUB.J, 00002970 
SIN DOCURENT '4VT, tases) 0C002980 . 

aie Up ee ee ~ (SKIP (2), A029). AU2007, AT3) yA 6). »AC13')3 «66002990 
© SJ = SUBSTR(SUBJs1yN~4)5 _ 00003000 


: : _ 00003020 

7 EVERY TIME A NEW KEYWORD'S DaTA 1S STARTED, WE BRANCH HERE. ~~ ~~ ¥ 700003030 
1% INITIALEZATIONS ARE WADE IN THE ARRAYS THAT S¥ORE ALL THE DATA  */000030¢:0 

~ FOR THE KEYWORD. ARRAY =P="WILS HOLS THE PUBLICATION DATES; ~ «700003050 
fe ~CNT~ WILL TELL HOW MANY DUCUHENTS WERE PUBLISHED UNDER ZACH _ */00003060 

~ FR DATEs —V—- AND -FV="HILL B6LD ALL DOCUMENT NUMBERS FOR EACH 760003070 
7% DATE, AND -I~ WILL HOLD THE NUMBER OF DATES IN -P-, -PREV-_IS  */00003080 

~~ “PE THE KEYWORD NAMES ~~ . pos * /00003090 


Co. ee 
ERIC 194 


00002820 


0002830 


& 002840 


' 06002850 


~~ 00003010 


90003100 _ 


|p nine nent = 


H _ 00063120 
3 00003136 

PREV = SUBJ3 «90003140, 
JE pus = § 7 THEN PUB = TND TS Toe ""006603150 
_0C003160 

“0 aie 03 3 1 wA0} 

Speen ; 7 _ 80003180 
VT3 00063190 
00003260 
00003210 
/* READ iM & RECORD FRU THE SPATED FILE AND BREAK IT UP INTO ITS | */00003220 
“fe” “ JNDIVIDUAL DATA. ; , = /00002230 
000032405 
00003250 
RD_ON? READ FILE (SORTOUT) INTO (DUMMYIs 00003260, 
= "—"—" CET STRING (DUMMY) EDIT (SUBJ,PUBsFVT) “00003270— 
—— (A200) A027 ¢F (620073 ee tee dee pied Goa sastt ti acd caescaeuraiterindeiin pene OOOO S280 
pi GET STRINGS (DUMMY} EDIT (VT) ~ 00003290 
ORT QOR IS nc ace ee ee eee es ; 00003300 
ere" CALL DELET3 : ; 000033190 
IF PUB = '  * THEM PUB = 'ADES 00003320. 
TTT WOES TNDE YE SUBST, Ue Ms ea ieee : ne ee ey 000033 2Q° 
IF WN = 0 THEN PUT EDIT ('8**NQ EMD OF SUA. CT NAME IM 'sSUBJ, 00003240 
~~ VIN DOCUMENT "VT, tet) 00002350 
ae (SKIP (2),4(2Z9) eA(200) sAL13)sA0E)2A(13905 C0002360 
“SUBJ = SUBSTR(SUBU:T9i-1)3 J0003370 
0000332h0 
00002390 
/* IF THIS NE! RECORD'S DATA BELUNGS WITH THE KEYWORD WE ARE | */00003400 
PROCESSING» ADD THE DATA TO THE ARRAYS. U0 “32400003410 
0000342" 
00003430 
TEST: IF SUBJ = PREV C0003440 

OT re ee THEN DOT ey ee - ~ a 0 000 2449 
00003460 
00003470 


CNTC1) = 
TO DE 1) = F 
MG lel ) = 
“EV? As ZL) = 


Bia 


/* IF THE PUBLICATION DATE IS THE SANE AS “Me xf ; 000034A0 
“7 PREVIOUS RECORD, ADD ANOTHER VT NUMRE ef , 00005490 
1* THAT DATE. we / 00002500 
Se “00003510 
er eee eee eee _ 00003520 
TE PCT = PUB THEN DOS 7 ae 0003530 
Jers 4+ 15 a) 00003540 

TO TONT CITY FS "90003550 
i 3 00003560 
ee PS sono = =~ FHO03570 ~ 
END; ' 99003580 


Sse elas chee ee a ee 
7e-TF THE pUBLICATIGN DATE TS DIFFERENT, START — ¥/ 00003610 
: f= A PLACE FOR A WEW DATE WITH THIS VT_NUMBER  #*/ 00003620 


~""00003110 — 


“900632590 — 


FEAST AE FIRST SUMBER UNDER ITO ¥7 "90003630 


00003640 
So 00003650 
ELSE 003 00003660 


be yr + i ~ 00903670 — 


(T) = PUBS 0095580 | 
3 00003690 
1) = VTS 00003700 


1 
Siro ei eS ee 
J 


JT = FVT$ “~~ "00603710 - 
ae VPP Oates. 


eee ata aa nck | ae 7 ~ ~ “00003730 
00003746 
Pere eae peer ee ee == oe QB FSO 
7*= GO BACK AND READ THE NEXT RECORD. «/ COGGB TEN 
eg eee ee eee — 5. ; TTF OCOS II 
_ 00003750 
. emmuamaear (cE (ck 1) as) | eae 7 = ~~ 00003790 
EnpS : science acpi achat ss ceil aly DOU SOR 
ee Ware ee Ge epee ge et eae — 00002810 
_ a ois ho ne . GONEBE20 
TIE OTE THIS EW BECORD'S DATA STARTS THE HEXT KEY!ICRD, WE MUST ADD */00003530 
7* THE OLD KEYHWORU'S DATA TO THE INDEX PAGE BEING FILLED. THEN x /COOO3 840 
“SPR WE WILL START THE SAME PROCEDURE OVER AGAIN FOR THE NEW KEYWORD «3 /00003850 
- 00003 FEC 
[oo Oa Ogee ogy ofa peas ECE 8m Fie eg ry ge pe ~~ “qo003870 
ELSE 003 ; 00003880 

OS TAFE FE STS THEN PUT ENT (8888 R0RE THAN TS DATES eNDER-="',00003 800 — 
PREV,! eT) (SKIP (CZ) ,A(030) 40200) 5A. 4)) 3 00003900 
OB ee eS Fare ence eee aad See Se ~~90003910 
; 00603920 
mms mmm" 8 BREAK THE KEYHOQRD MAME INTO SHALLER PIECES TF #/ ~~ ~~ ~~~ 90003950 
7 IT EXCEDES | THE COLUM A WIDTH TN LEINNGTH. af 09903940 
Pe gg ee a “00003950 
_ ee 00003960 
ma eS os mT ETL ENGTHO PREV) § ee mm "00003970 
IF L>WIDTH THEN CALL BREAK PREVsHIOTH»PCrBLK) § 00003580 
eG ~""VELSE DOs ~~ ; ~ 00003¢%90 
BLK = 1s ; 6004000 
it ae ee ee te PREV “00004010 
ENDS - a Ee se 00004020 
—— ret a te a ee oe RS a ES SS ee Se ae ere mae te ee Re ee erp ee lee OR 0000403% 
eek ee _ 00004040 
om mmm REE QR EACH PUBLICATION DATE, WE HILL ADD THE %/ 00004050 
/* DATE AND ALL VT NUMBERS TO THE INDEX PAGE, AND*/ 00004060 
7 TT NRE THEN DO THE SAME FOR THE NEXT DATES TCR 9 0004070 
C0004060 
wn a re rn m=" Q0004090 
LOOP1: DO J=l1 TO Ts _ _ oe 00004109 
Te eee eee eee" TE CNT (S)>75 THEN PUT EDIT ~~" 90004110 
(ssh ORE THAN 75 NOCUNENT S UNDER 'yP(J)s 00004120 

a Se a ee RR RE VEORD. TePCtl hs Le ae "00004130 | 
(SKIP (2) 4A(33)¢AC2) sAC13)  ALHIDTH) 9A (4) 15 _ 00004140 
aa a a a ENT = 1S “90004250 
7 __TEMPLOUT¢1) = PCS) TE tt ts __ . ~ 00004160 
= ena nas “TNE = 03 ~ poouT 

eens TE 1710005 ze 0000418 


—— 


00004200 

EE ERST THE DATE AND VT NUMBERS, ~— *F 000 00004210 | 
7* BROKEN UP INTO THOUSAND INTERVALS: */ 00004220 
OEE TERRE PUT INTO A TEMPGRARY ARRAY 7 FS ~~" 00004230 
/*® (TEMP_OUT). THETR APPEARANCE IN %*/ 0000%249 

TT ET TATS ARRAY YS IDENTICAL TO THETR #70 “000042506 | 
/* APPEARANCE If THE INDEX. IT TOOK */ 0004260 
pee +4 TTT PEO KNT= LINES IN SEMPLOUT- TO GET =f © 60004270 
7* THIS BLOCK GF_ DATA STORED. ef 00094280 
ea ala a = ~ ~ 00004290 
00004300 

a ee LOGF2: DO LC = 1 TO CNTCJ1$ ~~~ 00004310 © 
IF NTAR(FV(J,L)/1000) THEN DO} 90004320 
eek Sr ee ee MT=Fv (dsb) 410003 00004330 
ER ape RN Oe —EME=O3 00004340 


@ 


ERIC 


JA Fu'Toxt Provided by ERIC 


cee tan 


oes ES — eR RUTEL PU «00004350 © 
Bie eee es ee pat foe ee Se eee, eaten eee er ae eee ... TERP_OUTIENT }= 600043460 
7 7 ’ '; 00004370 
END S$ - 000043a0 
— ee — ECL SETY ETDS OT THE TERPLOUT TRNT THY =7 00004350 
a Bae te ee ee eee TERP_LOUT(KNT) TI fs '3 ee 00004400 
“TEMP QUT (KM TY STENP_ OUT(KRTD IT? VEL VOde Lb) 5 OONG4410 
cas cdae agudisee piniica sets.” Ieee tees SUNE. = UME BF cacy eke oe ees we ee oe 00004420 
TF (LHE = LI) 00004430 
ea es ss ee ye ee BF a Et $)7LO00SHT Do ee 00004440 


ECL a= CNTCU)) 
; THEN Bas ? 


00604450 
00004450 


TEMP _QUTCKNT) =TEMP_OUT (K8TOO004470 

tach, ae gies om sees Shea idtts Atesotek2 _ Thote's oe eg tee 
KNTHKNTFELS 00004+ 

fp Ba eg teeta Ge eee _ -LNE = 93_ ees _ ae 

“FSEMPOUTUKNT) =" V5 00004510 

ee etn ee tee enees oF nn tema oon ENDS. eee __.. 06004520 

END LGOP2; 00004530 

ee Dae es eee Me? ee se atch che rece cages cntot testcase eee 00004540 


/* IF THIS IS THE FIRST DATE FOR THISe/ 
7EREYWOR Gs WRITE THE KEYWORD NAHE Th 
8 THE COLUHN REING FILLED: _ 


“TB g ae i THEN Go TO LPe23 
Ser ee sy OT AR T= NAY + Ls 
LN = LN + 13 


TF (LE ABLK#2) > STZE THEN CALL HEADR(O) 3 __ 


60004550 
00004560 
C0004 570 
_ 00004560 

00004590 
90004600 

00004610 
00004420 

ONGL 4630 
; 00004640 


~~ ° —— = ot of C= 1 TO BLK} oe 00004650 

sedipeahe te pitls ed wesc aie eet Se EI __.. COL CIND s NN) OO a ee 
_ NNOS NN + 13 00004670 

tess ato gli peg acta eens ieee END LP13 900044680 


LW = LN + BCRS_ 


ee Wewtiesoeeeel oe START TO AOD THE -TEMP_OUT-— BLOCK */ 
7*®° TO THE COLUMN. STAKT NEW COLUMNS * 
r& AS NECESSARY, BUT REPEAT THE 


ne ee ne met ete = 
f8 


fe 
ef 

ia 
“KEYWORD NAME AND ‘THE DATE WHEN cy 
fw THIS HAPPEMS. WHEN THE COMPLETE */ 
af 

/f 

/ 


——— Ts ———~FE-BLOCK HAS BEEN PUT IN “COLUMNS, 
ae rn een Te St REPEAT THE COMPLETE PROCEDURE FOR . 
7 THE NEXT CATES * 


ec et arr re 


Lp2: 0 L = 1 TO KNTS 


“TF ULN +” vy > SIZE 


Sea miata nen cantina ans ee ema a SS SS ee SS 


"99804690 
_ 00004700 
0000%710 

_ 00004720 
00004730 
_00004740 
00004750 
00004760 
00004770 
00004780 
“00004790 
00004800 


en GORSS1 0 


_ 00004820 
00004830 
00004840 


CRE HERORUITT OOOO S 
oe N = 1 TO BLKS 00004360 

ee es SOLCNDINTY = PCCNIE OO OO”~C~C~COCO4B7O™ 
= Sette a aA ee ee NN = NN + 13 ede eerie eee 00004880 

: _ : ; TUN SIN +713 oe ~~G0004820 — 
= END 3 000049090 


“THEN OO35 


ore pe een mae = Se ne ——ECSLETINDs NNT ET CCONTT NU 
N= NN + 13 
Boilie ea ite eee See es EN Ss Le ee 
he i es ay asa ig eee ee ENDs” 


@ 


ERIC 


JA Fu'Toxt Provided by ERIC 


ae Uo ENGTHIPE(8LKY+12 > WIOTH 


“90004910 — 
00004920 


“By TF 60094930 — 


_ 00004940 
00004950 
_ 00004960 


168. 
ELSE COL#( IND, MiN—1)= PC(BLK) |] 
T (COMTISUED) #3 
THES TEFP_OUT(L)= P(J) 
|] SURSTRITEDP_ OUTIL), 


IF lL == 1 
$s T 
EMD; : 
COLHCIMD iM) 
HN = NM 4+ 13 
Li = LN + 13 
“ERD LP23 — 
END LOGPL; 


= TENP_LOUTIL)3 


/* WHEN ALL TRE KEYNORD'S INFORMATION HAS BEEN %*/ 
7s ADDED Th COLUNMS GF INDEX PRINTOUT, HE CAR 9 &/ 
/* GU BACK AND REPEZT ALL THIS FOR THE WEXT / 
7 KEYWORD. IF THERE ARE NO MORE KEYHORDS, DO */ 
iis “7 NOT BRANCH BACK. — — re. a 
IF INP = 0 THEN GO TO INITLS 
: END 5 . 


es ADD THE LAST PAGE BEING FILLED TO THE OUTPUT FILE. TERMINATE 


THE PROGRAMM. 
LOOP: OM K = 1 TO SIZE~LdMES2; 
PUT FILE (GUTS) SKIP(1)3 ~ 
LOOP’: PbO L = 1 TO COL; 
PUT FILE (GUTS) EDIT (COL#(L)K)) 


(SKIP(0),COLUMM IHG (L)), ACH IDTH)) 3 
END ‘QOP53 , i 
ED . JOP43 
PUT FILE (0UTS) 
PUT DATA (PAGE)3 

~CLUSE FILE (SORTOUT), 
FILE (OUTS)3_ 


PAGE $ 


lI 
5)3 


o00c4970 
AN00469650 
90004930 
erelereslerare) 
OG0O5010 
ON005026 
00Nos5u3e 
000050490 
OG005u50 
OOGO 5040 
Oove05070 
00CO5080 
oo0c5sa90 
00005100 
000051106 
00005120 
00005139 
00005140 
00005150 
00005169 
00005170 
OUOOSLED 
00005190 © 
*/00005200 
*/00065210 
00005220 
00005230 
00005240 
00005255 
000052460 
O0OG05270 
on00 Sez eu 
00005290 
00005300 
000053146 
00005320 
00005320 
00005340 
00005356 
00005267) 


ar sn THIS PROCENURE JS CALLED WHEN AT NEW COLURN IS STARTED. WHEN ALL*/0000527¢ 


7* COLUMNS ON A PAGE HAVE BEEN FILLED, WE PUT THE COLUKNS ON THE 
7%" QUTPUT FILE. & WEW HEADING IS PUT ON THE FILE) FOR THE NEW 
7% PAGE. COLUM INITIALIZATION PRUCEDES AS FOR ANY NEW COLUMN. 


“"“HEADR:”” PROCEDURE (NP)3 7 
DECLARE 
eae ce oe FIXED BINARY (31,0); =? - 
NP FIXED BINARY (31,0), 
> 
IND = IND + 13 
= ro iad = ‘J F IND- = ThaX Spe PRET Pere uagee eo NY Gace ere eee Vet ne Pena gpa rena gee Cn saa aaa 
THEN DO$ 


IND ="13" 
HD1: DO L = 1 TO SIZE-LIMES23 
/ " "" PUT FILE (GUTS) SKIP‘1)3_ 
pOK =1 TO COL; Lo . 
‘PUT FILE (GUTS? EDIT (COL#(K,L)) °° _—~ 

— ASKIP(C),CULUNN(MG(K) ),ACHIDTH)) $ | 
COLH(K,L) = 4 83 
END HOZ3 


_.. HD2e 


136 


= /O00CG53 40 
* /00005390 
*/00005400 
00905416 
00005420 
‘00005430 
00005440 
00005450 
00C0546n 
00005470 
00005480 
00005490 | 
00005500 
00005510 
00005520 
‘00005530 
00005546 
00005556 
00005560 
00005570 
00005580 


169. 


END HOi; 
PAGE = PAGE + 13 
IF SKPP = WARG THEM DO: 
7 SKPP = SZ — 33. 
SKPH = f:ARG3 
END 3 
~ ° ELSE DO: 
SKPP = BMARG?: 
SKPH = SZ -— 123 


EMI) $ 
PUT FILE (GUTS) EDIT (PAGE,HEAD,TITLE) 
(PAGE sLINE (LINEHR2) »COLUMM(SKPP)s FC4) 2 SKTP(0) s COLUM ( 
SKPH) s£(13) sLIKECLIMET ) 9X (0 SZ-LTH-MARG#1) /2+HAKG-1) 3 
ACLTH))$ 


PUT FILE (GUTS) SKIP(LINES2-LINET) 3 
END 3 _ 
° IF FRSY = PAGE TREN LN = LIMES1; 
ELSE Li! = LINES2; 
NN os NPS 
IF NM = O THEN LN = LN - 13 


RETURN 
END HEADR3$ 


“ps THIS PROCENURE IS CALLED TO BREAK UP A STRIPG 
/* PTECES OF LENGTH -LikTH~. THE PIECES ARE 
/% THERE ARE ~NU- OF THEM. 


( BREAKE) 
STORED Ii -PC~ 


INTO 
AMD 


BREAK: PRUCEDURE (BREAKE yLiNTHySRUKE HU) § 
DECLARE 
BREAKE CHARACTER( 200) VARYING, 
LiWTH FIXED BINARY (31:0), 
BROKE (4) CHARACTER (WIDTH) VARYIFG, 
_ NU es FIXED BINARY (31,0), | 
L FIXED BINARY (31,0), 
" SUML "FIXED BIMARY (31,0), : 
TEMP CHARACTER (132) VARYING, 
9 
NU = O03 
INIT: °SUN1l = O3 
TEMP = BREAKE3 
“""SRCHS Lo = INDEX(TEMP,! #)3 
IF |. = 0 
: "THEN DO; 
L = LENGTH(TEMP); 
ced ae" SURL = SUML 4 LS CITT ~ 


IF SUML > LNTH 
THEN DO$ 


NU = NU + 13 

~ ~ “BRUKE(NU) = SUBSTR(BREAKEs1,SUM1-L-1) 30 
NU = NU + 13 

al 7 = SUBSTR(BREAKE; SUML~L41)3°° 0° 7 


~ BROKE (NU)” 
RETURM 3 


END 3 
ELSE DO3 
° ~ NU = NU + 13 ie 
BROKE (NU) = SUBSTR(BREAKE,1,SUM41L)3 
e : RETURNS 0°” POT RU DAC AK aU a 
END $3 
ENDi> _ 


1g oe UAL SURE + (Loe 195 


Oo. 
ERIC 199 


O00G55S5 
00005600 
00605615 
00005620 


cS 


a 


‘900054630 


COQ0 5640 
00005650 
O0CO5466 
ONUG54a70 
OOUaSs 4680 
00005550 
0000s 700 
OOddS 71S 
00C0O5729 
00005730 
00005740 
00005750 
00005760 
00005770 
00005780 
00005790 
QOCO 5200 


“00005510 


90005620 


* /OG0G5830 
*/OOCH5 E40 
#/OOGGSE50 


OGOO5 460 
NOOCGEE70 
OOCO5 CEO 
OOOO5HE0 
OOOO S950G 
N000DSIO 
OOCO5SS270 
00005955 
NOGO YAO 
OGCO05S50 
OO0059G0 
OONNS°70 
00005980 
N000H 990 
N000 6000 
00006010 
00000020 
00006030 
00006040 


“00006050 


O000ENEO 
OO00GN7O 
00906080 
00006090 
OOCO0é1NO 
000046110 
00006120 
00006130 
00006146 
00006150 
060006160 


~ 00006170 


000061 60 


' 00006190 


00006200 


IF SUHL <=LNTH TREN DO; 


NU = 


NU + 1s 


BROKE(KU) = 


__BREAKE = 
SUrl = 


Go To S! 


O§ 


is 


“" END BREAKS 


Teme 
SUL 
Go T 
EWD 3 


170. 


SUSSTRUTEMP ¢Leiys . 
SUL + 13 
G SRCHs © 


of 


SUBSTROPPEAKE,1¢ SURI-L)3 


SUBSTR(BREAKE » SUF1+2=L) 5 


/* THIS PROCEMPURE IS CALLEG TU PELETE THE LEADING ZERDES FROM A Y 
7 “NUMBER. THUS: '004506' BECOMES '4506'. 
DELET: 
7 " - PROCEDURES ~ 
DECLARE 
- ~ en FIXED BINARY (31,0), 
TEMP CHARACTER (6) VARYING, 
comms BLANK OTT TT Ol CHE RACTER (1) INITIAL (t°> 4), 77 
> 
? “"" TEAP = VT3 
LP: DO mM = 1 TO 63 
. TE SUBSTR(TEMPstiy1)='O' THEN DOS 
IF M=1 THER VT=BLANKIESUASTE(VT, 
ae Se ~~ ELSE VT=SUBSTRIVTs1]1—%~1) 
BLANK 
i‘ : SURSTROVTsHF1) 3 
END 3 
. ~ - ELSE GO TO FIX; 
END LP3 
TET XE OWT BU SUBSTRIVT 1 6-HD4F1 9 tiD) 3 ~ 7 
RETURN 
wore eee ERD DELETS _ : 
. “END BUSTNESS; 
~ “ERO ANNSUB 5 7 
9 200 


it 
J 


2 
| 
| 


00006210 
900062206 
00006230 
60006240 


“GOC06250 


00006260 
60006270 
00006289 
ONCCo295 
COGd63aN0 
00006210 
00006320 
30005330 


* /0C00 6340 
*/O00006350 


3 
| 
| 


00006364 
00006379 
0N0063E0 
00006390 
00006400 
00006410 
0000 6420 
0000 64.30 
00006440 
0000 64.50 
00006460 
00006470 
QO00 640 
GOU0VG490) 
G00 6500 
00006510 
00006520 
OUV0O06530 
00006540 
09006550 
OOOO 6560 
0000657) 
OOCG65EO 
000065%0 
00006604 


00006610 


AUTHOR ANNUAL 


j ERIC na 2U4 


172. 


/ 
~ [8 ANNUAL AUTHOR IN DEX x 
[XE ae 
is wee - eee a os Bes Ake ese ae eee es aes ‘ 
7* PURPOSE: GENERATICH OF AUTHOR TMDEX FOR ATH/ARE ANNUAL INDEX a 
/ USES AUTHUR TAPES GERERATED BURING THE YEAR FOR INPUT 
/* ONLY THE VT NUMBER; YEAR QF PUBLICATION, AND AUTHOR a 
poe NAME ARE REEDED FUR THE INDEX. ; ; # 
: f% FOR MAMES OF IMPUT PARAMETERS SEE COMMENT BELOW. — * 
“ee ° SYSIN DATA: THE PARAMETERS TO CONTROL FORMATTING ARE READ IN + 
a USING A LATA FORM THUS TO REAM IN THE VALUE UF MARGIN * 


A CARD WITH 


MARG Ils 


Bio tts ale ae os Me Me sts aft Yas fz as oe SIs as Bie Ste sis Sis ale He Ae 38 Sls ae a 
PROCEDURE OPTIONS (HAIN) $ 
BEGINS 


' SORT THE QUARTERLY INDECIES INTO ONE DATA SET. 
4 f > . 
“DCL JHESRTA 
ENTRY (CHAR (48) »CHAR(34),FIXED BIMARY(31,0),FIXED BINARY(15;0)) 9 
“RETCDE FIXED BIMNARYT(i5,0)¢ ~~ canned ; 
SFIELD CHAR(48)¢ ee ee, 
is REIELD CHAR(34)3 ~ 
— SFIELG=! SURT FIELDS=(54152,CH,A, 137,10,CHyA)sSIZE=E300 85 
RFIELD=' RECORD TYPE=VyLEMGTH=(5645 79171) '3 
CALL IHESRTA(SFIELD,RFEIELD 1 $1440,RETCNEF) 


“PUT FILECSYSPRINT) LISTC'RETURN CODES! »RETCDE)$ 
END $ 
DCL (MARGlivy VT_WIDTH, DATE, INDEX _PAGE 5#_COLS,PRINT_LIME, PAGE_L INES, RAN» 
FIRST_INITIAL,»NEXT_INITIAL) FIXED BINARY(3190)% 
~ VT_ED_SKIP FIXED BINARY(319G),> 
LAST_PRINT FIXED BINARY(3750), 
. —™ COL_SPACE CHAR(20) VAR» I et : : 
TOP CHAR(4) INITIAL ('LEFT! 7 
“HEADING CHAR (20) VAR3 ~— ~ aaa ll -— 
/% 


_ OBTAIN PARAMETER FOR THIS If « 


ITS REQUIRED. as 
©/0°9000159 
*/OU000L6O 


af Soa 


. a 
400900030 
060000040 


=/ON0000460 


700000070 


*/00000080 


4000000909 
70G90C00100 
/00000110 
700600120 
400000130 
/O0GO001 40 


00000170 
00090140 
00000190 
00000200 
Q00g00210 
00000220 
G006b0230 
00000240 
00000250 
CO0O0O2ZaO 
00000270 
00000240 
ON000220 
00000300 
06000310 
000002320 
00000330 
O00003 409 
00000350 
~ 00000340 
CU000370 
000003480 
QO0000390 
00000400 
00000410 


MARGIN = WIDTH OF PRINT a COG00420 
VT_LWIDTH = COLUMNS ALLOCATS TO VT MUMBER 00000420 

DATE = LASY TWO DIGITS NF { RESENT YEAR © UU 00000440 

PROGRAM ALLOWS FOR NOCUHENTS PUBLISHED BETWEEN 1950 AND PRESe 00000450 

~ “" INDEX PAGE = FiRST PAGE NUMBER FOR THIS INDEX : ; 00000460 
# COLS = NUMBER GF COLUMNS DESIRED 00000470 

=" BRINTLULINE = NUMBER OF COLUINNS ACROSS PAGE * aa . 00000480 
PAGE LINES = LENGTH OF PAGE IN NUMBER OF LINES 00000460 

ma HEADING = WHICH PUBLICATION IS THIS 07 0 0 UU" ~ 00000500 
TOP = WHICH SIDE OF PAGE IS FIRST PAGE NUMBER 00000510 

mmm BIRST_INITIAL = FIRST LINE OF PRINT FOR FIRST PAGE 00000520 
NEXT_INITIAL = FIRST LIME OF PRINT ON OTHER THAN FIRST PAGE 00000530 

sm "==" OE SPACE = BLANKS TG BE PLACE BETWEEN COLURNS TOUT en” “00900540 
00000550 

cine nagpeetceee eee eeme ti liealon sheesh Hd mates “alee cae aan saly SBOEOEED 
GET FILE(SYSIN) DATA(HARGIN»VT_WIDTH»DATE,INDEX_PAGEy#_COLS»,PRINT_LINE, 00000570 


PAGE,LINES sHEADINGs TOP,FIRST_INITIAL»NEXT_INITIAL,COL_SPACE) COPYS$ 
RAN=DATE~503 

“CAST PRINT=03° 
BEGINS ; a oo ee 
DCL CINITIAL_LINE,COL_COUNT,IT+,PG_L_OR_R, TOTAL_PUR(50:DATE+1), 
— YEAR y VT #eJeT K yLAST oi VTS 2 PUBL ICATIONS(RAN) yK1lyLNyLNAg 


to 


o.. 
ERIC 


oo0C005Ra&O 
ON0005%0 
o0n00600 
OOOO00HLG 
00000620 
00000630 


a7 . 


“FIXED 
ee BINARY (31,0)5 
VTL VT 2) FIXED BINARY(2190)9 _ 
ATH_ARM FIXED BINARY(3110)s 
“AUTHOR COUNT FIXED BIMARY (31075 
SAVE_LINE CHARCHARGIN) + a 
~ RUTHOR_ SAVE (10) CHAR (HARG IH} 9 
GUT _PAGE(PAGE_LINES) _ 
“¥RUCHR CHAR(2)+ 
NAME CHAR(132)_ age 
BEC CHAR(949) VARy 
PREVIOUS CHAR (132) INITIAL ((132)" "De 
Tose "=" TNE» OUT_COL (PAGE_ LIMES+10) » SUBNAHME ) 
BLANK LINE CHAR(MARGINDS 
——“BeL TSAVE FIXED BINARY(3190)3 
BLANK_LINE=" 3 _ 
“cOL_COUNT=0; 


~—_— —_——— ——— 


CHAR (MARGIN) + 


eee ere 


—_———-- ee 


OPEN FILE(AUTHORS) RECORD INPUT TITLE ('SORTOUT')§ 
“""" OPEN FILEC(CUT) PRINT PAGESIZ7(2AGE_L INES) LTMESTZE(PRINT_LINE)3~ 
TOTAL_PUB=O3 a ee eee fee 
ae —LNAHI13 — 
LN=L3 


ee coe eee ona ee a ne 


coll ‘COUNT= 703 
INITIAL_ LINESFIRST_INITIALS 
PUT FILE(OUT) 
/* 
"SECTION TO 
ay 
‘GNTENDPAGE( OUT) BEGINS — 
IMITIAL_LIMESNEXT_INITIALS | 
“TF TOP=*LEFT' THEN DOS 
TOP="RITE'S 
7" ATH ARM=PRINT LL INE- =~ ENGTHTHEADING)=-T3_ 
PG_L_CR_R= =93 


ce ern ee ee art ee ee = Macnee mmmermammaenns 81m 


PAGE LINE (INITIAL_LINE) - 
PRINT TOP GF PAGE 


END3” ee ege  e : 
ELSE DOS : boise en cae tec eee ene 
ee TOPE'LEFT' 3 —~ 
AIMLARM=93 ts ceeeisude ye ele eee se Se 
Ge tae eta “PG_LLOR_R=PRINT_UINE- 53 
END3 


ee 


PUT FILE(OUT) PAGE TCYNET2) 3 
PUT FILE(OUT) EDITCINDEX_PAGE 
“RS TNDEX #) CCOLUMN(PG_LL = OR, Ce aden 
XCUPRINT_ LINE/2- 21).A(40))3 


00000650 


“00000440 


~O0000E60 


oe 


~o9000068s 


ae 


~""99600700 


00000710 
“00000720 


__00000730 


000007490 


00000750 


00000760 


00000770 
60000780 
000007895. 


90000800 


00000810 


“90000820 


CUL0O GSO 
“90000840 
00000850 


90000860 


00000870 
90000880 
00C00890 


“00000900 


00000919 
“00000920 
00000920 
00000940 
00000950 


“00000960 
00000970, 
00000980 


oo00cgs90 


~™0c0c1000 


00001010 


~ 90001020 


00001030 
00C01040 


E,yHEADING, PERSONAL AND A et AUTHGO0001050 


00001060 
00001070 


“00001080 


60001090 


00001110 


“BUT FILE(OUT) SKIP(373 ~ 
COL_COUNT=03 
OT PAGES TE a 5 aan a aa al 
INDEX... _PAGE= INDEX_PAGE*+15 _ nae 
- ee HN" ENDS | 


re 
WHEN END OF “INPUT IS”REACRED FYNTSH CAST PAGE AND 


*/ 
“—ONENDFAILECA UTHORSY BEGINS 


y PRINT 


mr 


ene een eene € eee ee, name = ee 
: . 
isis e es aie iow a ae - PN os aes ipae ea cae ——— —— = _+ 
Sept tc aire . eis se y; S Vv as 
ee ee ne page en ee ee ome meme LL 


“ON CONVERS ION BEGINS 
es BUT PILEtSYSe RINT) 
GO TO INPUT$ _ 


a 


“‘DATA(REG@)S OOOO 


en a a I 2 ag ee 


00001120 
00001130 


00001140 


00001150 


00001190 


~~~90001200 


—————"FOGOL100-~ 


—=—————PFOO0OL1LG0 ~ 
me 
00001180 


00001210. 


~9000T220 — 


00001230 


00001250 


“90001240 — 


ee ee I = aaa am ee eee (613 
____ INPUT: READ FILE(AUTHORS) INTO(REC)$3 00001270 
PUT FILE(SYSPRIMT) EDIT(REC) (SKIP A): —_ 00001280 
YR_CHR=SUBSTRIREC 213352) $ 000012¢0 
a ain i a a araros 9001300 
__ CHECK YEAR POSITION FOR WRONG CHARACTERS _ ee 00001310 
~ “IF OBVIOUS MISTAKE CORRECT IT pees . 00001320 
a. Seen a a be ee 00001330 
IF YR_CHR-=! 'ESUBSTR(YR_LCHRy ig 1)=' § THER SIGNAL CONVERSION: ee 
___IF_SUBSTR(YR_CRy2,1)="L* THEN SUBSTRIREC,158,1)="1"3 ; 00001250 | 
~ TFUYR_UCHR="NO'TYR_CHR=" THEN DO; See 
ee, _. YEAR=DATE+13 00001370 
= ~ ~ GET STRING(REC) EDIT(NAMEs VT15 VT2) (A(132);X(2)32 F(3)00001380 
eee See eens siae, ete oc a a cad seh ets en elise OU en 
~~ ” oe END; — a 00001400 
ELSE GET STRING(REC) EDIT (NAHE » YEAR» VT1yVT2)(A(132),F(2)92 F(3))3 00001410 
ie VeRReSU THEN DOF CO ee 00001420 
PUT FILE(SYSPRINT) DATA(REC) 3 00001430 
ES EE TO LEPUTE OTS Tee Te eae tes RENE a egy 
END 3 a a eae eee _ 00001450 
—— TeeVileloulevi 2s. Oe ee ee nace 00001460 
iF PREVIOUS=NANE THEN GO TO FILL; 00V01470 
es IF-LENAS1L THEN GO TO NOBLAMKY 7 = “9 0001480° 
_ FINAL? OUT_COL (LNA) =B8LANK -LINES. 00001490) 
ee LNA= LNA+1 3 : ee ee a ey 00001500 
NOBLANK? MAX_LINES=PAGE_LINES=INITIAL ALINE; 00001510 
a ~~ AUTHOR_COUNT=O03 0 nN Og nee SET ee re EEG 
| es 5. a ee Beppe ec ial a a oe a OOOO S30 
j BREAK UP AUTHOR NAME TO FIT IN PRIN? COLUiN 0000),540 
*/ . ci lt ni iii a a, ag a en, le eens ester Merete ee « 00001550 
“= "Pd Js es ee ae ee ; 00001540 
; SUBNAME= =SUBSTRI(PREVIQUS 9 S“HARG ING HARGIN) 5 Ba 00001570 
etek ES fae ~TZ0¢ uM dacnie cememaoa mca 
IF SUBSTRISUBMNAME MARGIN, 1)5=" * THEN DO; _ 00001590 
m ee DO ak Oe ARG ee ~~ 600016C0 
i IF SUBSTR(SUBNAME sMARGIN-I,1)=! ' | SUBSTR(SUBNAME,MARGIN-OO0O1610 
har aia ae ~'Ts,1)="-" THEN GO TG BREAK: oopoleee 
END 5 ; a 0000163 
~~ "BUT FILE CSYSPRINT) LISTC' AUTHOR NAME 'SNAMES WTR S-1yvT#y st TT oee eat 
END3$ 00001650 
~ BREAK!” SUBWANESSUBSTRUSUBNAHES Ts HARGINSTT3 ‘00001660. 
K= INDEX (SUBNAME,!' = *) 5 _ 00001670 
| PEASE Kel, THEN. GO TO DACUke ee ee 00001680 
_. EF K=0 THEN K=MARGIN-T3 a can Soe ce DS tt 5, OO Led 
~~ PUT STRING{LINE) EDIT (SUBNAME) (ACK) = 00001700 
j VT 00001710 
; SAVE AUTHOR NAME TO BE USED TE NESSESAR RY IN CONTINUATION COLUMN ~~ oO00l1720 ~ 
” _ 00001730 
~AUTHOR_COUNT=AUTHOR_COUNT#13., — a “90001740 
: AUTHOR_ SAVE (AUTHOR_COUNT ) = LINE 00001750. 
—BUT_COL(LNA)=LINES 900 OTT = ——"F 0001760 
LNA=LNA+1; 00001770 
re: aan Oa a 
; DOCUM: J=03 00001790 
. ae aaa JF KEY=1I THEN DO; =F OOOLBO0 
KEY=03 ____ 00901810 
Ee ee RECTUS SNAME So ee ~~"""90001 820 
; GO TO FILL; - _ ___00001830 | 
ee ~~ ENDS 7 “90001 840 
{ IF _KEYa=3 THEN KEY=03 ee _ pee _____00001850 
IF LNASKAX_ULINES THEN DO3” 00001860 
Bet ee aaa pe ee ee si a ONAT ENA BU THOR COUNT 9 a  OODNT E70». 


emt beens, 


Weert 


Fake meee 


crerenened | 


[anny 


Pcietine | 


f iacneeaiies 


te 175- 
ae earls teeter ae SEE CPL PRIME? a 7 — 00001889 — 
a BO LNA=1 TO AUTHOR, COUMT 3 00001890 | 
eve ee a ‘QUT_COL (LIA) SAUTHOR_SAVE(LNA) 3_ 00001900 
END; 00001910. 
pee rere ar eee gg eg etre nn 00001920 
7 OO '=50 TO PATE: 90001930 | 
To TE TOTAL PUBLI)=0 THEN GO TO NORES 00001940 
Seu tls eer aes _ __ 90001950 
~ PUBLICATIONS (J}=15 00001966 
NONE? ENO$ _ 00001970. 
TET OTAL_PUB (OATE+1) 50 THEN DOS 00001980 
- Berens 8 KELS ee hoses os teats cate ee these bee temas: + op F001 FFD 
ich a a lL K1L=PUBLICATIONS(1)3 00002000 
; ; a ENO; tt, ie ta pe tte saan OOO 2010 
pe “ELSE DO; ae 00002020 
ee cn i alk MO eae eee 00002030 
~~ = 7 ae K1=K3 G0002040 
2 eS eee ee, : 5 ee ermal ee emnNEe OO REORI ra ao Maren meron 9100009) 18 05 
—"~OGUTPUT:° FIRST=13 00002060 
7 — LASTHHLVTS3. — 00002070 
— THOUSAMDS=EITXED(AUTHUR_PUB(K1s1)/1000) 3 00002080 
IF K=OATE+1 THEN GO TO JUMPS 00002090 
Tr ETT ERSEH_LVTS3 Pe ee ge ee 00002100. 
OR ces i eae Te ee eee ete Se eit ee eM nt a ae eee ge 00002110 
7 en TTL CPM PRINT EYNE FOR A PARTICULAR YEAR , “00002120 
*/ 00002130 


= BUT STRING (LINE) EDIT (K19 "2 "yAUTHOR _PUB(K1,1)9 (1, 'y AUTHOR PUB(K1s 00002140 
1) DU T=2 TO ITERS RHILE( (FIXED (AUTHOR _PUB(K1s1)/1000) =THOUSANOS) 00002150 
“BC TRSTOTAL_PUS(KLID IV) (F(Z), ACL) 9 XC 2) p LITERS) (F(VT_HILTH) 2 A(1)995 00002165 


1F I-1=#8_VTS&AUTHGR_ PUBTR 1 )7 0005 THOUSANDS THEN SUBSTRILINEs ITERS* 00002170 
~(VTI_LFLIDTH#1)4+5,1)5°,°3 00002180 
400i? obi. COL(LNA)=LINE$S eres ol Se ciats therwiee «=. Q0002190, 
~~ oe" ETF KEY=5 THEN O03 7 : 00002200 
SAVE LLINE=LINE 3 - —— ae 00002210 - 
oe ne ene en eRe pe te eee ~ — 00002220 
: . KEY=03 00002230 
ey —_ Sane | oe TEL TO AUTHOR COUNT=H1 3" "00002240 
; ; ; - UT COL CI VRAUTHOR. SAVEUTNG oo es 00702250 
ee “END? | Uuv002260 
a ___1=1NOEX(AUTHOR, SAVE (AUTHOR COUNT) yt _')3_ 90002270 | 
“ ~~ “TE P20 THEN DO 00002280 
; OUT COL { AUTHOR_COUNT ) =AUTHOR_SAVE ( AUTHOR_. COUNT) 300002290 
ee RSS TEAUT HOR_COUNT #13 00002300 
_ OUT. COL (1)="( CONTINUED) "3 ae 00002310 - 
ENDS ~ 00002320 
ELSE OO; 00002330 
eae oe ye —“GUTZCOL (AUT HORT COUNTY = SUBS TR TAUTHORTSAVET "90002340 — 
AUTHOR_COUNT )y1,1) 1)" (CONTINUED) 'S 00002350 
= TO TSAUT ROR COUNT; ee 00002360 
cis tet ee es yee 00002370 | 
Re ee QUARTERS TALS . 00002380 
IF SUBSTR(SAVE_LLINE,1;2)= 1 THEN PUT STRING (SAVE_LINE) 00002390 
ne TTR ST ETE SUESTETSEVEL “CYNES 477 CECZFZ A177 ADS —«S00002400 © 
OUT_COL(QUARTER)=SAVE_LINES 00602410. 
= ~ ~“TNAS=T#H13 °° , ce air ae AS “00002420 _ 
I=ISAVE3 7 00002430 
on a aay |) 1 A ST 00602440 
LN=LNA3 00002450 
TE NASL NAF eee ——~~§ 0002460 > 
/* , 00002470 
TT ETT ETS TTS “CONTINUATION OF AN” AUTHOR ~ TNR SECOKO™ COLUMN THEN KEY =500002480 > 
ANO THE AUTHOR NAME NEEDS TO BE PLACED AT TOP GF COLUMN 00002494 
rf ra ie ieee 
2U0 


eee tara 


Fiemme 


Aeteecenians d 


Bp ine ahcrtaren tS 
IF LNA>=MAX_LIMES THEN 


DO; 
KEYV=53 
QUARTER=13 


00002560 
000025106 
00002520 


SS Mia ~yEGuURRTERE 
ee ee ; oe souks orbits tan EDS 5 ote cies 
~~ TE TSTOTAL_PUSTKL) THEN GO TO ENOKs 
LAST=I-25 
THOUSAROS=FIXED { AUTHOR 
FIRST=LAST+#13 
IF FiRST>TOTAL_PUB(KI) THEN GO TO ENOK3 
LAST=LAST+H#_VTS3 


~PUB(K1s? 1/1000) 


“we 


JUMP: IE LAST>TOTAL_PUB(K1) THEN LAST=TOTALPUB(K1)3  — 
ITERS=LAST-FIRST+13 eee _— 
TE JST THEN PUT STRINE(LINE) EDITERIG TEE 2), ATT 5 
7s 


*/ 
orem en eS TRING(LINE) EDIT CAUTHOR_PUBCKIZFIRST) 2 CF, | 
OO I=FIRST+1 TO LAST 


*, AUTHOR 


90002660. 


00002530 


00002550 


~ "00002560 
__ 00062570 


00002589 
00002590 © 


—— 


00002600 
_ 000026106 
~G0002620 
00002630 


“00002640 


00002650 


00002670 


“Eyre yh PRINT LINE FOR A PARTICULAR YEAR € DELETE YEAR 1F CONTIUAT 100002680 


00002690 


PUB(K1,1)00002700— 
WHILE (FIXEO (AUTHOR, PUB(K1_1)/1000)=THOUSANDSO0002710 _ 


—~~00002540 


eee JUYVOX C5) 9 CITERS VCR (VIL IDTH YS ACLIIVS 00002720 
TF I-1L=LAST&AUTHOR _PUBIK1,1I)/1000= TES INOS ELI n he PUB(K1) THEN | 00002730 
“SUP LTRCLINE, ITERS*(VT_LWIDTH4L) 459 LI='s "5 00002740 

IF K=DATE+1&FIRST=1 THEN SUBSTR(LINEs1293)=°NOS "3 _ 00002750 

Te ——""EG TO LOOPLS eS a 00002760 
EMOK: JF K=OATE+1 THEN K=15 . gee ae 8, 00002710 

ns ‘ELSE K=K+13~> © ye “00002780 

IF K<=sJ THEN 003 i ee . 00002790 

a SS ST Pe LECATIONS(KIs = pe 00002800 

GO TO OUTPUTS _ _ 00002810 

Se ee ENDS —— 7? “00002820 
PREVIOUS=NAME $ Sera 00002830. 

IF KEY23 THEN CALL’ PRINTS Ss aan 00002840 

_IF KEY=3 THEN GO TO AUT an _ 00002850 

UNE LIAS” ae ee 7 “""00002850 
TOTAL_PUB=03 Saeco __ 00002870 

ay ae _ ee ey ee ne tye Re eke ee , ~~" 00002880 
FILL UP ARRAYS FOR A PARTICULAR AUTHOR BEFORE FORMATTING A LINE 00002890 

Toy fe ee Fe ee ; ~ 00002900 | 
FILL! TOTAL_PUB(YEAR)STOTAL_PUB (YEAR) +13 ee, _ 00002910 

==" —— TT HOR PUB CLYEARsTOTAL_PUBIYEAR)) =V Tay ae “00002920 

GO TO INPUT; ae y 00002930 

——"" WOT 2s PUT “FILE(SYSPRINT) DATACINOEX_PAGE)S = 00002940 

* sitet cit shew Anica ein ¢ SOOO STOO 
"FF - COLUMN HAS BEEN FILLED THIS PRUCEDURE WILT BE CALLEO THE COLUMN 00002960 
NEEOS TO BE FIT ON PAGE ANO_ LEFT OVER SHIFTEO TO TOP OF _NEXT_C00002970° 

rn > J ——— —_ 00002980 
PRINT: PROCEOURE3 __ ____00002990 © 

== OUT COUNT =COLLCOUNT +13 —~ Cpe IN Se 06003000 

LAST_PRINT=LN3 00003010_ 

—— "TE" COL COUNTST THEN 00 T=f TO CAST_ “PRINTS 00003020 

DUT_PAGE(I)=OUT_PAGE(I)IICOL_SPACE|JOUT_COL(I)3 00003030 

areas ere er ee ~~"9000 3040 _ 

ELSE —— _____00003050_ 

Se mmm STS HO TST TO LAST PRINTS 7 00003060 

OUT_PAGE(1) =QUT.. PAGE(I) II '|{OUT_COL(I)3 ___00003070 

ee ~~60003080 
IF LAST_PRINT==MAX_LINES THEN O03 ce _____ 00003090 | 

——""“TE“COL_COUNT>1 THEN DO Y=LAST_ “PRINT41 TO MAX ILINESS 00003100 

OUT_PASE(T)=0UT, PAGE (1) LI COLL SPACEIIBLANK_ LINES 00003110 


EN 


JA FutToxt Provided by ERIC 


END; 


IF CUL_CUUNT= 


OUT_PAGE(I)=OUTLPAGECTI TI. 


END 3 


IF COL_COUN 


_ IF KEY=3 TREN 
LNA=13 
END PRINTS 


END YRAUTS$ 


ELSE 


END; 


177. 


DO I=LAST_PRINT+1 TO FAX _LINESS 


te 


COLS 


IF KEY=38COL_COUNT== 


THEN 


PUT 


_COLS THEN 00 T=1 TO 


PUT 


OG I=1 
FILE(OUT) 
END $ 


FILE( CUT) 
END $ 


EDiT(OUT_ 


TO HAX_LINES$ 
EDIT(OUT_PAGE(I)) (SKIP :A)5 


MAX _ LIMES: 
PAGEC(I))( SKIP9A) 


=_CGLSIKEY=3 THEN SIGNAL ENDPAGE( OUT) 5 


GO TO 


AUT3 


'UEBLANK_LIRE$ | 


> 


3 


00003120 
00003130 
00CO5140 
00003150 


"90003160 


000031 76 
06003140 


~c0c03190 


00003200 
00003210 
00003220 
00003230 
000032240 
00603250 
00003260 
60003270 
00003280 


178 ° 


SUPPORTING SERVICES ANNUAL 


179. 


PAR Me Hee He es an 
a ; ~/000000260 
7% AWN UAL SUPPORTING SERVICES */O0000030 
/* , ib x PROGR A ih *x/O0G000040 
peaiaay 2-2 oY fa ee ee —S es PES er — x/O0CKCRS5SL 
/* *x/O00C000T7TH 
“73s PURPOSE THIS PRUGRA PRODUCES THE CURBINED AIM/ARM SUPPURTIiNG %*/00000056 
OW = SERVICES IMDEX FOR THE ANNUAL PUBLICATION, THE INPUT */00000090 
/ TO THE PROGRAM IS THE 4 CUARTERLY DATA SETS UF ATi */OONCOOLOG 
7 (EVEN THORIGH THE QUARTERLY AIM PUBLICATIONS bO ROT */00000110 
TO pe HAVE THIS INDEX. WE RUM THE GUARTERLY PROGRAM WITH THE */00900120 
x AIM DATA TG MAKE A DATA SET WITH THE SHORTENED RECORDS )*/60000130 
7. rn AND THE 4 GUARTERLY ARK DATA SETS. WE COMCATENATE * /OG0001 40 
7% ALL 8 TOGETEER AND SORT USING THE 340 SORT/MERGE TO x /OON00L50 
TON ge TO A TEMPORARY DISK FILEe THE DISK FILE IS PRINTED IN * /OO000L60 
7 A FORMAT DICTATED BY THE VOCATIONAL CENTER ON AN OUTPUT*/00000170 
momen pgm moms mere = eT ARID HE HAVE AN INDEX. THE DISK FILE IS DELETED, */G0000150 
/* BUT ALL 8 TAPE DATA SETS ARE KEPT. */00000190 
Tee 38 , */O00000200 
/* DEFINITION OF VARIABLES: 7 */00000210 
we Pe 1. AFIELD --— 3-DIGIT CODE READ FROM THE DISK RECORDS. * /00000220 
7% 2- BLK -- NUMBER OF PJECES ITHTO WHICH A CODE NAME MUST BE * /000G0230 
emney 2) more mn BROKEN UP SG THAT IT WILL FIT IN A COLUMN OF QUTPUT.*/00000240 
co 3. CNT -- THIS IS AN ARRAY OF NUMBERS, EACH DENOTING THE * /00000250 
~~ —. NUMBER UF DOCUMEHTS UNDER A PARTICULAR PUBLICATION %*/090000260 
7% DATE. IF P IS THE ARRAY OF DATES FOR A SUB-CODE, * 00000270 
nn 2 a “THEN UNDER DATE P(J) THERE ARE CNT(J) DOCUMENTS TO */00000280 
7% BE LISTEN IN THE INDEX. EACH CNT “UST BE LESS THAN */90000290 
“Tk a “OR EQUAL TO 200 FOR THIS PROGRAK'S CURRENT SETUP. * /NO0000300 
7% IF IT EXCENES 200+ CHANGE THE DIMENSIONS ON */00000310 
rr LS ee V RIABLES FV ARID Ve . a . oo * /00006320 
7% 4e P -— ARRAY OF PUBLICATION DATES OR YEAR NUMBERS FOR A * /00000330 
Pa ~ SURRKCODE, WHEN DOCUMENTS WERE WRITTEN AROUT THE SUB- */0000024G 
Ds CODE NAME. #* /000C0350 
women Ps wee 1E NUMBER OF DATES RELATEB TO A SUB—-CQDE. THUS, FOR */00000360 
7% IME SUB-CUDE, THERE IS INFORMATION ABOUT IT IN —*/00000370 
ar ae 'CUMENTS Il THE YEARS P(1)s Pl2)ee0e02 PCI). -I- MUST */000005%80 
1 BE LESS THAN OR EGUAL ’ 15 FOR THE PROGRAM'S CURRENT */00G00390 
men ae “SET-UP. . IF IT EXCEDES 15% CHANGE THE DIMENSIONS Oi * /000004G0 
/* VARIABLES Py», CNT? FV> Ve */O0000410 
anton PE OS EY SS THESE ARE THE DOCUMENT NUMBERS CONTAING INFORHATION */00000420 
* ABGUT A SUB-CODE NAKE. -FV- IS A TYO DIKENSTONAL ~ «/00000430 
meme pg mmm mem ARRAYS THE FIRST SUBSCRIPT -J- REFERENCES THE * /O0C00440 
/ PUBLICATION YEAR -P(J)- GF THE DOCUMENT, THE SECOND  */00000456 
OOS ieee “SUBSCRIPT -L- REFERENCES A PARTICULAR DOCUMENT NO} * /O0000460 
fs UNDER THIS YEAR. * /00000470 
TOMY SAME AST -FEV> ONLY FV TS “NUMERIC AND VY TS CHARACTER. ~— */000004&G6 
He 8. COL -- NUNBER OF COLUMNS IN THE INOEX PRINTOUT. */00000490 
rer Oo DUMMY +~- STRING” INTO WHICH A RECORD IS READ.) °7 ” ~""  * /00000500 
10. FLD -— ARRAY OF SUB-CODE NAMES. + /O00G000510 
se OT ERST --— PAGE NUMBER OF TITLE PAGE. 0° 00 — 3k /00000520 
ri 12+ FVT -- A SINGLE NUMERIC DOCUMENT NUMBER. * /OO0000526 
Eo HE ADU H={"HEADING NHICH TOPS EVERY PAGE AND TS FOUND ON THE  */00000540 
a SAME LINE AS THE INDEX PAGE WUMRER. ITS FORM IS — */00000550 
ee Pe 2 meme mrrrnmee = " PAIM/SARM €@9-70'2. we ee" 8 100000560 
* ote 14.2 IHESRTA -—— CALL TO SORT PROGRAM. x /00000570 
mE STM AX == TNDICATES ALL COLUMNS OF A PAGE ARE FULL. | ~ 3 /00000560 
a 16-6 IMP -- INDICATES IF NE HAVE PRINTED THE LAST BLOCK OF DATA */00C00590 
moment yp germ men mmr Ny THERE EGRE, IF THE INDEX IS THROUGH. IMP=1 SAYS */00000600 
1 WE ARE THROUGH$3 IMP=0 SAYS MORE DATA TO COME. |. */00000610 
TTA OO PP IND MR INDICATES WHAT COLUKM GN A PAGE IS BEING FILLED. * /00000620 
em 18+ KNT --_IS THE NUMBER OF LINES OF DATA IM A BLOCK. BY BLOCK*/00000630 
<) 
ERIC SAE 
ENC 209 


180. 
Pe pa enya fe Ps aD EAN RA PUSLICATIDN DATE AND ALL ITS DOCUNENT ~~~ */00000640 — 
A NUMBERS LISTED BY THOUSANDS. TO LIST _8Y THOUSANDS, */00000650 
* “——— “VWECLIST ALL VT NUMBERS O < VT < 9996 THEM STARTING %*/00000660 
* ON A NEW LINE WE LIST ALL YT'S MiTH LQ000<VT#<1999. */00000670 
fg IS CONTINUES UNTIL ALD DOCUBENT PURBERS ARE —~700000680 _ 
TE LISTED. ; _*/00000690__ 


% YOO LIM BAX hut NUMBER OF DOCUMENT MUMBERS THAT WILL FIT | */00000700 
OO IN A COLUMN OF SOME WIDTHs 


20D LINEHL -- LINE ON THE TITLE PAGE ON WHICH THE PAGE NUMBER */00000720 


f 

OP oe oe een NO SE Be ae eee eee ener mere S08" 

7% SYS LINED So SANE AS -LINEHI- BUT FOR &LL SUCCEEDING PAGES. + /00000 740 
/ 


*/00000710 | 
ANDO -HEAD- APPEAR. */00000730 _ 


(e225 LINES) = LIVE ON THE 1 TTEE PAGE WHICH IS RIGHT ABOVE THE */00000750 | 


ay. 7" TMOEX PRINTOUT. * /00000760 
is 23. LINES2 -- SAME AS -LINES1— BUT FOR ALL SUCCEEOING PAGES. _*/00000770 | 
ona OAS LINET -- LINE GN ALL PAGES WHERE THE TITLE IS PRINTED- * 00000780 
f® 25. LN -7 IS THE CURRENT LINE BEING FILLEO ON A PAGE. IT IS A #/00000 700... 
TS —--—-@HECK TO HAKE SURE THE PAGE LENGTH IS NOT EXCEDED. 7 /OQG000 800 
7% 266 LNE -—- COUNTS THE NUMBER QF VT NUMBERS OM A LINE SO THE  */00000810__. 
agg TE OC GUNT DGES MOT EXCEDE -LIM-+ THE LIMIT. * 700000820 
1% (27. LTH -~ LENGTH OF THE VOTER TE Ce es ee te ee __*/00000830 
rr 2 OBS KARG -- LEFT-HAND MARGIN OF AM INDEX PAGE. * /00000 840 
____ * 29. 4G —- MARGINS OF _THE COLUMN, FACH MEASURED FROM COLUMN 1.  */00000850__ 


Fe S65 nT SE DESIGHATES THE INTERVAL OF THE Last VT NUEBER To BE S/oonoo Ce 


1 52. TEMP_OUT -~ FOR SOME SUB~CGDE, THIS IS THE DUTPUT SET-UP */00001210 
oe 


DATE. -TEMP_OUT- IS PUT INTO -COL#- ONCE THE  */00001230 


I I 


om PUT _IM THE 1MDEX UNDER _A PARTICULAR YEAR FOR SOME —__*/00000870. 
moore py memes CODE NAME. MT * 1000 IS THE START OF THE INTERVAL, */00600880 
i ee WHERE it = Os 1s 2ease. ANO MT # 2000 4.999 ENDS INE 570000) FD 
mom Bg INTERVAL © * 700000900 
i= 31. NN --_ COUNTS THE LINE NUMBERS BEING FILLED IN A COLIN. */00000310.. 
OOO OUTS” = OUT PUT FILE FOR INDEX PRINTOUT. */00000 920 
/% 33. PAGE -- PAGE NUNSER OF INDEX. _ 8 00000930 
7 OBA PREV) = CURRENT CODE NAME WHOSE DATA HAS JUST BEEN PUT IN */00000940 
/* THE INDEX. cies ed ts cee gee 00000950. 
ap BT PUB = PUBLICATION YEAR OF KR RECORD GN THE SUBSET FILE. * 700000960 
7% 36. QUE -- TITLE PAGE GF INDEX WILL BF ON THE LEFT ('L*) OR_ */0C 000970 | 
an Gy RIGHT URED SIDE UP THE PUBLICATIONS —"*7 00000980 
3 37. RETCDE -- RETURN CODE RETURNED BY THE SURT INOICATING __#/00000990 
manny en SUCCESS OR FAILUREs ae % 700001000 
se 38. RFEIELD -~ DESCRIBES TO SORT THE RECORDS OF THE SUBSET FILE.*/09001010 
~~ Fg "39 SFIELD == TELLS SORT WHAT PART(S) OF THE RECORDS TO SORT * 00001920 
7 UNDER.» ee eer oo 9001030__ 
OS ST RIGAT=HAND MARGIN OF THE PAGE. es 1040 
/* 41. SKPH -~ TELLS WHERE -HEAD- SHOULD START ON ITS OUTPUT Lin *-* 901050 __ 
a GEE SK PP IS GIVES THE STARTING COLUMN FOR THE PAGE NUMBER ON ~~ +4 0001060 
hs ITS OUTPUT LINE. 00001070 
TT GST SORTIN == ALL 8 DATA SETS OF THE SUBSET FILE TO BE SORTED. */00001080 
7% 44. SORTOUT -- SORTED RECORDS ON DISK. * 00001090 
ry Soe ace -RARINUM-LENGTH OF OUTPUT PAGES SSSOS~S~S~SC«S TCT OV 
7% 46e TITLE -- TITLE OF THE INDEX.~ 00001110 
— fp EF VT eK DOCUMENT NUMBER FROM” ATRECORD OF THE “SUBSET EILE.  %*/00001120— 
7* 48. 0 -- NUMBER OF SIGNIFICANT DIGITS IN THE VT NUMBER. _ */00001130__ 
FESS WIOTH = COLUMN WIDTHS —— oy —~3 60001140 — 
* 50. COL# -- IS A 2-DIMENSIONAL ‘ARRAY REPRESENTING A PAGE OF * 00001150 
See ee TPUT FROM BELO THE HEAUI NGS TTHE FIRST SUBSCR TPT /60001160 — 
1% ‘ CALLS A COLUMN AND THE SECOND SUBSCRIPT CAL:S A */00001170 
a io ———--—TINE IN THE COLUMNS ee ee AOOCOLILEO 
7% Sle PC —~- PIECES INTO WHICH A CODE NAME 1S BROKEN UP SD THAT */00001190 
TOE ———4T- HILL FIT YN A COLUMN. ara TF 790001200 — 


OR-ALL THE VT NUMBERS UNDER ONE PU BLICATION #¥700001220 — 


——BLoCK 1S COMPLETE. 700001240 
__*/00001250 | 


[ 


Terie Slob 
; 


wee - 


181. 
“ TMPUT TO THE PROGRAM: i */00001260 
—SORTOUT-, ALL RECORDS FROM THE SUBSET FILE IN SORTED ORDER */00001270 
WE LIST THIS FILE If A FORMAT AMD AN AiNUAL INDEX IS PRODUCED*/50001289 
FOR US. */00001290 
~ ~SYSIN-»; INPUT DN CARDS © : */00001300 
THIS IS A CONTINUOUS STREAM OF PATA. THE VARTABLES BELOX ARE*/00001310 
GIVEN VALUES GUN THE CAROS IN THE SAME DROER AS THEY ARE * /00601320 
LISTED BELOW. ek, he ae ig epee a Siceterace ne Gide teen atndas alee “A OOO TA 20 
—PAGE- F(4) * {90001340 
—SIZE- FAD */00001250 
wu ES SWIDTH= F(4) */00001260 
-YD- F(4) ; * /00001370 
: “=MARG—  F(4) */00001380 
-—SZ- F(4) */000013¢0 
an -LINEH1- F(4) . *«/00001406 
-LINES1~ F(4) ; _ */00001410 
Tom mes SC INEHZ= 7 “EC a_i. */00001420 
—~LINET- F(4) * /00001430 
=“ “=LINES2— —— F(4) . ~ */00001440 
a ~COL- F(4) ; * /00001450 
ny 1: —MG- ARRAY COL * F(4) : */00001460 
2 —LTH- F(4} * /00001470 
sepa TL BR ACL TR) 7 os “ °* /G0001480 
7% ~HEAD- A(13) — -®00001490 
me pag QUEM i “Atl1) ee ~ * 00001500 
7s THESE VARIABLES WERE DEFINED IN THE PREVIOUS SECTION AND */Q00Q01510 
oe 77 THEIR VALUES CAN 8E OBTAINED FROM THE TYPEM WRITE-UP OR THE */00601520 
7% VOCATIONAL CENTER. THE VARIABLES DEFINE AN CUTPUT PAGE. * /00001530 
sortie yas Hatoos AOMAL CENTER. | . Pan _ DEFINE A PUT a oGaT alo 
* SPECIAL NOTE: */00001550 
. x PRINT THE INDEX ON THE PRINTER UNTIL IT HAS BEEN CHECKED BY */00001560 
/% THE VOCATIONAL CENTER. THEN PRINT IT CN MAGNETIC TAPE AND */00001570 
peo LIST THE TAPE ON THE 360/50 USING THE TN CHAIN FOR UPPER AND */00001580 
/3 LOWER CASE LETTERS. THIS IS THE GGCD COPY OF THE INDEX. | */00001590 
mony tat _ PES fs THE GbOU LUE NE tence UpbOOL EAC 
J MBAS AS ASAE BR BE BS AS IT AE AS Rae MERE Be SCRE DS BS IE SR A 2 IEE BIE PI BI IE IE EE ICE RE EF 2S 2 2 IE FES /00001610 
Peper. Aan cr ee ae ane ee oot ee See eee SNG01 E26 
ANNVCT! PROCEOURE OPTIONS (MAINS 00001630 
ee DECLARE oe 2 ~ ~ 000016%0 
AFIELD FIXED BINARY (3190) 00001650 
~ aces BLKU UT ee “FIXED BINARY (31,0)- ~ i 00001640 
CNT(15)_ FIXED BINARY ue ; _00001670 
~ eS ED ~" FIXED BIMAR reer, ae 00001680 
DUMMY CHARACTER (18); Bea nee 00001690 
~ “FLOO:13) — “CHARACTER (132) VARYING INITIAL © 00001700 
itAGRICULTURAL EOUCATION', oe 00001710 
~ ee creme mmm men VRE TESS AND OFFICE EQUCATION', 00001720 
-"OISTRIGUTIVE EDUCATION", die, Haatsies idenegiae DOOOL TIO 
irate eae armen BS th eee ene SEAL TH OCCUPATIONS EDUCATION, 00001740 
"HOME ECONOMICS EBUCATIGN', __00001759 
° aie le 7 “VINDUSTRIAL ARTS EOUCATION', | 00001760 
"MANPOWER ECONQMICS', 00001770 
rte sara EN Nae eer eee OCCUR AT LOMAL: PSYCHOLOGY 37 i is 00001780 
‘OCCUPATIONAL SOCIOLOGY', oe eee 00001790 
- EE re ge ee _ _ 00001800 
'TRADE AND INOUSTRIAL EDUCATION', _ 00001810 
PA geet Se © pee eee ners ee Sig Vig ne ee : 00001820 


“ITECHNICAL EOUCATION'), 


seins ancsccsces at PBT soc este seatsasstwamect ERED BINBRY PSU I ONS a cate fue ee ee eh oe 
FVt15,200) “FIXED BINARY (31,0) INITIAL ((3000)0)> 
a pee _FIXEO BINARY (3350)9. 


fs 


_'GENERAL VOCATIONAL ANO TECHNICAL EDUCATION! » 00001830 


00001840 
00001850 
00001860 
00001870 


o.. 
ERIC 


JSFIELD = Ot. 


HEAD 
I 
THESRTA 


IMAX 
IFP 
IND 

J 

K 

KMT 

L 

Lit 
LINEHL 
LINEH2 
LINES1 


“ LINES2 


LINET 
Lif 

LNE 
LTH 
hMARG 
inG(3) 
MT 

re 

INN 
UUTS 
P(15) 
PAGE 
PREV 
PUB 
QUE 
RETCDE 
RFIELD 


' SFIELD 


SIZE 
SKPH 

SK PP 
SORT IN 
SORTOUT _ 


“SZ 


TITLE 


“VC15%200) 


BY ASCENDING ORDER 
VT NUMBER. 
“FOR Kh CHECK. = 


_RFIELD = ! 
“CALL IHESRTA 
PUT FILE_ 


RECORD TYPE=F,LENGTH=(18) "3 
(SFTELD»RFIELD;45056,RETCDE) $ 
(SYSPRINT) 


SORT FIELDS=¢ 


Ait 


CHARACTER 


' FIXED BINARY 
FIXED BINARY, 


182 @e 
CHARACTER (12), 
FIXED BIMARY (31,5! 
EMTRY (CHARACTER (53 
FIXED BIMARY ( 
(1590)),5 

BIikBRY 
BINARY 
BINARY 
BINARY 
bINARY 
BIMARY 
BINARY 
BINARY 
BINARY 
BINARY 
BINARY 


CHARACTER( 27) + 
29),FIXED oITMARY | 


FIXED 
FIXED 
FIXED 
FIXED 
FIXED 
FIXED 
FIXED 
FIXED 
FIXED 
FIXED 
FIXED 
FIXED 
FIXED 
FIXED 
FIXED 
FIXED 
i IXEN 
FIXED 


(31-0), 
(31,0), 
(224:0)5 
(31,0), 
(31,0), 
(31,0), 
(31,0), 
(31,0), 
(31,0)9_ 
(3150), 
(31,0), 
BINARY (3150)% 
BI'ARY (3150), 
BIWASY (31,0), 
BINARY (3140) 5 
BIKMARY (31,0), 
BIi:ARY (31,0), 
BIMARY (31,0)9 

7 IXED BIMARY (31,0), 
FIXED BIrARY (31,0), 
-IXED BINARY (31,0), 
FILE STREAM, 

CHARACTER (2). 
FIXED BIHARY (31,0)5 
CHARACTER (132) VARYING, 
CHARACTER (2), 
CHARACTER (1), 

FIXED BINARY (15, Ody 
CHARACTER (27), 
CHARACTER (53)97 

FIXED BINARY (3150)+ 
FIXED BINARY (31,0),_ 
FIXED BINARY (3150), - 
FILE SEQUENTIAL RECURD, 
FIL SEQUENT rT AL RECORD» 
FIXED BIRA®, (3150)% : 
CHARACT (50) VARYING» 
(6) VARYING, 
(6) VARYING, 
(31,0), a 
(31,0), 


CHARACTER 


PUBLICATION YEAR, 


OOCGOLESG 
000014890 
OOGO1SOO 
006019170 


‘00601920 


00001930 
00001940 
00001950 
00001 960 
00001970 
00001960 
000019°0 
oo0c 2000 
00002010 
o00C02020 
00002030 


00002046 


o0G02050 
90002060 
OCO002070 
QO0G 2080 
00002090 
00002106 
00002110 
OVOO 2120 
00002130 
00002140 


90602150 


00002160 
00002170 
Oo00021 #8) 
00002190 
00002200 
00002210 
00002220 
00002230) 
00002240 
oo00cd2250 
00002260 
00002270 
00002260 
00C02296 
00002300 
00002310 
00002320 
00002330 


~ 00002340 


esa ce 
000023 


cas RT THE 8 DATA SETS OF THE SUBSET FILE BY ASCEMDIND GRDER SUB- éupescess 76 
AND FINALLY BY ASCENDINGOOO02380 


QUT THE RETURN CODE AND THE SORTED RECORLS00002390 


(18) (83 


EDIT (RETCDE)  (SKIP(3),F(3))3 


1939CHy Ay 4922 CH A269 69 CHy A) »SIZE=E9999 


# /0000 2460 


00002410 
00002420 
00002430 


00002440 © 


00002450 


* 00002460 


00002470 
00002460 
00002490 


183. 


READ IN THE PAGE SPECIFICATIONS OF AN INDEX PAGE. 
GET FILE (€SYSIN) EDIT (PAGE, SIZE SUuICTH sD, 
ww" gLIWER2sLINET,sLINES2eCOL,(2G(1) DO I = 1 
HEAD, QUE) 
wT" (13 Fl4),(COL) FL4:,A(LTH)9A(13)-A(1))3 
_7* BEGIN PRINTING OF THE Ir DEX. ; 
- BUSINESS? 
BEGINS 
7 “DECLARE 
_ COL#(COLsSTIZE~LINES2) CHARACTER (HIDTH), 
ee "HEADR — EMTRY (FIXED BIrARY (31,67), 
PC(4) CEARACTER (tHICTH! VARYING, 


ent 


Li 


~ TEMP_OUT(SIZE~LINES2) 


~~ ON 


ENDFILE 
IMP = 13 


“"FLD(K) = 


"BLK OT ¢ 


.. MAKE INTTIALTZATIONS FOR 


DG 
DD 


GO Th 
END; 


i” 
J 


hou 


“COL#(J,1) = 
END; 
“END BLKOT 3 


(SQRTUUT) 


'Z2°3 
TEST 


t . 
' 3 


PRIMTING 


CHARACTER 


“WHEN ALL OF THE SURTED RECORDS HAVE BEEN 
LAST PAGE BEING PUT TUGETHER. 


‘VIDTH) 


READ, 


BEGIN; — 


‘1 TO SIZE~LINES23 007 
1 TO COL; 


THE 


IMDEX« 


OPEN FILE (SURTOUT), 
aa aa “FILE (GUTS) QGUTPUT STREAR 
eee a eR pe oo Seen Pee 

FRST = PAGE; 
neni TAY COL LE ie ghee ee 

LIM = (WIDTH = 4)/(HD + 2)3 

poe “BUT DATA (LIM) 3 (UU UT 
NN = Of 
pa - “EN = 93 — 

IMP = O$ 

Toomer “TF QUE = "Lt THEN BOS; 
SKPP = iiARG3 
ee ee SKPH = $2 ~ 123 
END; 
ey as “" ELSE DO3 ° 
SKPP = SZ — 33 
See ee eee ae EKPH = Makes 
eee otek. Wades END; - 


VERAYING, 


WED 


MUST PRINT 


PRINT PAGESIZE(SIZE + 4) 


OUT 


*/0006G2500 


00002516 
Pe ae 


MARG,SZ,LINEHL,LINESIOUG0253 
Tir CUL),LTH,TITLE; 


pueossan 
00002559 
00002560 
00002570 
000025hG6 


*/00002596 


00GGU 26600 
00002610 
00002620 
00002630 
00002640 
00002650 


00002666 


00002675 
000026¢-0 
00002690 
000027006 
00092710 
O0G02726 


*/00002720 


00002740 
00002750 
C0002 760 
00002779 
00002T74«N 
00002790 
090002800 
00002814 
00002820 


*#/00002830 


00602840 
0600285G 
00002660 
DOCO287O 
00002 c80 
00002890) 


00002900 


00002910 
00002920 
00002930 
00002940 
00002950 


~ 00002960 


00002970 
00002980 
00002990 


~ 00003000 


00003010 


00003020 


00003030 


“00003040 
00003050 
"00003060 
_ 00003070 


00003080 
00003096 
00003160 


- ©00031106 


18h, 


“oye. puT OA TITLE ON THE OUTPUT FILE FOR THE TitDEX TITLE PAGE. 
PUT FILE (OUTS) EDIT (PAGETHEAD) 
(PAGE LIME (LIMERL) » COLUMN (SKPP)9F(4)_SKIP/ 0), COLURA( SKF)» 
_ ACL3B))3 


“pT FILE (GUTS) SKIP (LINESI-LIMEHL)$ 


_-f* _..READ IN TRE FIRST 


CORD CF THE SORTED FILE. 


“"" READ: “READ FILE (SORTOUT) INTO (DUMHY) $ 
GET STRING (DUBHY) EDIT CAPIELD»PUB,VT) 
“"""  €F (3,0) 2A(0Z) cA 06)S 
GET STRING (DURHY) EDIT (FYT) | 
(X(5)5F(620))3 _ 
_ CALL DELET; 
IfF AFIELD = 495 THEM K 
ELSE « 


See tS RE, 133 
(AF IELD-400)/103 


tt 


“HEUBILL BETREADING -SORTOUT= UNTIL ALL THE INFORMATION FOR A 
SUB-COVE 1S OBTAINED. WE FAKE CERTAIN INITIALIZATIONS FOR 
THIS. a , : 


_. ENITL? 1s) 
=] 


IF PUB = ' * THEN PUB = 'RD'S : 

CNT(1L) = 13 

of = eriy = pusE? - satis wire 
V(lo1l) = VT$ 

—— ““EV¢lel) = FVT$ . ~ ~ . _ 

_ #* READ IN A RECORD FROM -~SORTGUT~. 

“—"“po ONS “READ FILE (SORTOUT) INTO (C.° ~ 

GET STRING (DUMMY) EDIT (AFIELD,PUB,VT) 

ewer men TEER OG) ALZ DG ALOD)S : VA bees ee 
GET STRING (DUMMY) EDIT (FVT) 

AEE SS RAS I EL Rasy pg 9 a oe 


CALL DELETS3 


_ PUB Te 8 NO THEN PUB =" tp? 37 ik No hate seceisl ety of cadsan tamale Pe eee te 
celica chordie ee ero tee IE ee. 
ELSE K = (AFIELH-400)/103 °° 


s# IF THE SAME SUR-CODE IS STILL BEING USED, THEN TAKE THIS PATH. 


~"" TESTS IF FLD(K) = PREV UT” 


Sites boa ae = - 


“ccgulencnnctulee lecareetenm VO Rae MEAT (PDS at WEY UNDER TNT, Be Eee nun tics fouehdeds et 


*# TE TTHE DATE TS “STILE THE SANE, ADD THIS DOCUMENT ee 


*/O00CG312C 


OCOOCS1LAG 
OC0US140 
O00GU315o 
00003160 
O0000317° 
Oa0031 EO 
0000319C 
00003260 


*/Q00052109 


o0cos220 
O000%250 
0V003240 
00005250) 
00003260 
00003270 
00003220 
900032 96 
00003300 
00003316 
0000532¢C 
00003330 
00003340 
000033590 


/C 003369 


00003270 
00003380 


00003390 


00003400 
00003419 
00003420 
00003430 
00002440 


00003450 
00603460 


00003470 
0000340 


— #/00003499 


00003500 
Ou.0357) 
00902526 
00002530 
00903540 
00003550 
10003560 
00003570 


~ 70003560 


000035%0 


~ 06003600 


00003610 


~ 00003620 
_#/0C 003620 


06:003 640 
06003550 
00003650 
00003670 
000034680 
00003696 


‘00603700 


00003710 


"00003720 
00003730 


185. 


TF P(E) = PUB THEN DO; 00603740 
Jo=J+ 13 00003750 
ChT(I) = J? OOCO3 760 
ViIgu) = VT3 — 06003779 
a os oe FV(I,gJ) = FVT3_ 7 > ee ~ 00003780 
END; 00003790 
SS: 00003&G0 
re eee 00003810 
~ Fe TE THE DATE TS NE, TRIS DOCUMENT TAKES THE FIRST 00003820 
POSITIGN UNDER THE MEL DATE, AND THE NEW DATE |... 00003230 
ee TAKES ITS PLACE IN THE LINE OF DATES. xf 00003 640 
a 00003650 
. . 00003860 
ELSE DO3 00003870 
, . i = ha as 000038480 
P(I) = PUB3 7 _ _ 00003890 
ee eee oe: eed sor ee = ‘ie ie aan 0000390C 
VCIe1) = VT3 00003916 
oe - = FV(I,J) = FVT3 00003920 
CMTCT) = 13 _ _. 90003930 
: END 3 i 7 00003940 
0G003989 
ates, ae oe manent esd pierces Sj EE, ye oe 060603960 
1% CONTINUE READING -SORTOUT-. - */00003970 
a ee . oe 090003980 
00003990 
—_ GO TO RD_ON; — : 00004000 
END; _ 7 — 00094010 
— - - ane reads — —~ ee 000040206 
00004030 
7* WITH ALL THE DATA FOR’ A SUB-CODE, WE CAN NOW PUT THIS BLOCK IN 00004040 
THE PRINTOUT. 700004050 
a os —— ; vo . _ 00004060 
__..00004070 
Paneer ee: Ue G Ee Age t= Serene a aa a 00004020 
_ 00004090 
Se pe ee ye eee - 7 00004100 
L* corecKk 7 UNBER OF DATES < £5 FOR THIS SvUB-CODE. BREAK 00004110 
so" Jp THE SUB-COWE NAME IF 17 IS TOO VIDE =OR THE COLUMN.” © : * 06004120 
00004130 
atime. Riubheieier “ee weet eee ee ee ate bei inee SrA oe amore re Gea : Se ev, Gee ~~ 00004140 
IF I>15 THEN PUT EDIT (t%s*MORE THA 15 DATES UNDER-- *,0C004150 °° 
2S ae - “ PREV,! 6) (SKIP (2)5A630) ,ACL3B20 4 "°°4)) 3 ; 09004160 
L = LENGTH(PREV)3 00004170 
— “"" "TF LOWIDTH THEN CALL BREAK(PREVsWIND Hef Ce BLK) 3 00004180 
ELSE bO3 00004190 
meee eet 7 siesta ee ee - “BEK UE Cys" aire See eve gan oR = = _ “00004200 
PC(1) = PREV$ a 00004210 
oleate Seana ies. - nee oe nae are = END : — — Peery [= 00004220 
00004230 
SMeEA eatin Jaties = - ee ee . ~ ~ "90004240 
1 WE ADE THE DATA TO THE INDEX: GOING BY ONE DATE AT A TIME. WE 00004250 
Tet meme TE TEMS OQUT= "WITH “THE DATE AKO “LLUTHE VT *:l SERS UMDER IT. "90004260 
FIRST, PUT THE DATE PJ) INTO -TEMPLOUT-. _ */00004270 
se e BS ee We ee nan aac Oye eh ee a a peooesan 
00004290 
ne ana LoOoPL: DO J=1 TO 13 © oo 00004300 
IF CNT(J)>200 THEN PUT EDIT ae 00004310 
crm omar oe oe meme rere meee TE toe MORE THAN 200 DOCUMERTS UMDER TPES) 00004320 | 
1 FOR KEYWORD *%sPC(1)_! aes?) 00004330 _ 
one eae ~ “(SKIP EZ 1,433) yA(2) ¢AC13) yo (01 DTH Ys ACAI) § 00004340 
KAT = le Oe ee 00004350 
@ : 
ERIC 
Pruttos rovandoy En ve 
219 


“TENPLOUT(T)Y = play fpr eg ~~00004360 — 
Fee eee JUNE = 03 0 00004370 
a “MT = FY(d,1)/10003 ~~ 00004380 
poe 00004390. 
i aaa a a are ~ ~~ 06004400 
ee _ _/* AOD THE VT NUMBERS UNOER OATE -P(J)- INTO  ~ ——s_—Q.0004410 
“-TEMP_OUT-; BUT BREAK THEM UP BY THOUSAND 00004420 
a NTERVALS AS YOU DO THIS. ~KNT-_IS THE __ 00004430 
NUMBER OF ELEMENTS IN --TEMP_OUT~ TEIS TOOK. */ 00004440 
= Se ae eee ____ 00004450 
ee. "00004460 
ye _ LooP2: 00 L = 1 TO CNT(U); 00004470 - 
~~ TF MTA=(FV(d,L)/1000) THEN O00; “00004480 
Sas a ae al te et Fae ; _MT=FV(39L)/1000300004490. 
Fe Fe ~LNE=03 00004500 
ee eee —KNTSKNT+15_ 00004510. 
oe —— Se TEMP_LOUT(KNT)= 00004520 
_ re — "00004530 
a ae a cae 7 aes ns ENOS$ 00004540 
eget oe ee ee el IF (La=1) & (LNE==0) THEN TEMPLOUT(KNT) = 00004550 
rea ‘ a sais TEMP_LOUT(KNT) TL "343 00004560 
TEMP_OUT(KNT)=TEMP_OUTCKNT) [Et 'EIV( del) $ 00004570 | 
ee CNE = Le Se 1 ~~"""00 004580 
IF (LNE = LIN) -_ _ 00004590 
FO eg ~~ ECEV Ud L#1)/1 00021 hT) ~" "90004600 
(Lo me CNT(U)) ; 00094610 
Rg THEN OOF 4620 
__ ie pee eT bP NWT (KMNTO0004630 
ee eee “2° WY 00004640 
a hire KMT+15 i 00004650 
Te eS SENET BOQ 00004660 
7 _TEMP_OUT(KNT) =" "5; += 00004670 
aa al a a i a aia a “TENO3 0 7 - 006044580 
ENO LOOP2; 00004690 
aaa een nia re ae aera “00004700 
ee 00004710 
PE START ADDING THIS BLOCK OF DATA TO THE COLUMN ARRANGEMENT. 1F ~~~~66004720 
THIS IS THE FIRST DATE FOR THE SUB-CODE, PUT THE SUB~CUOE 00004730 
Te WANE INTO THE COLUMN. ~ —— a : “¥ 00604740 
00004750 
By ee ee eee ae ee ac: “00004760 
IF J m= 1 THEN GO TO LP2; 00004770 
re a iF (LNSBLK42)°SSTZE THEN CALL HEAOR (O13 ~ “90004780 
NN = MM + 1s 00004796 
EN ETN ETT tas = “06004800 
LP1l: DO L = 1 TO BLK; 00004810 
= ~~ COCHETINDINNY = PC(ILY “00004820 
NN = NN 4 13 00004830 
ian “ENO LPIs ans ~""90004840 
LN = LN + BLK3 _ 00004850 
a ae pe ee : “00004860 
00004870 
a aie aa 7* START ADOING THE VT NUMBERS TO THE COCURN, — ~~" 90004880 
IF WE FINISH FILLING THE COLUMN, A NEW ONE _00004890 
“HUST BE STARTEO. THIS CAUSES THE SUB-CODE ; 00004900 
NAME ANO SOMETIMES THE OATE TO BE REPEATED. __ 90004910 © 
a “CONTINUE UNTIL THE WHOLE BLOCK IS in “69004920 
COLUMNS « */ 00004930 
. “00004940 7 
; 00004950 
LP2: DO C= 1 TO KNT; ras "00004960 
eae IF CEN + 1) > SIZE Julien tentative OOOO? TC 


a ee ee 
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oe ee THEN DOS) TET "00004980 — 
CALL HEANR(1)$ — 00004990 
~ ~ _ a ai aaa “pow = 1 TO BLKs 00005000 
COLHCINDsNN) = PCONDS 00005010 
NN SMA TS — 00005020 
LN = LN + 13 00005030 
OS ee “ENDS OO = 7 aa “90005040 
IF LENGTHI{PC(BLK))+12 > WIDTH  __ 00005056 
TO ae ee ee Pe ee re ee EE AL ENS “09005060 
COL#{ IND, NN) ="(CONTINUEDI NS ~~ O0005070__ 
oie NN = MN + 13 00005080 
: LN = LN + 25 UU 00005090. 
Sa eg, ee te a END. ~ 00005100 
ELSE COLE(IND, NN-1)= PC(BLK) JI 00005110 
we ee ern YT (CONTINUED) 3 : 00005120 
IF Lt == 1 THEN TEMP_OUT(L)= Ply) Il 00005130 _ 
SS Re EF FL SUBSTRITEMNG UUTILis 213 CGOOS140 ~ 
END; a - 00005150. 
anc coon sm ememmmmnrmemsemnnes SF FEC IND NA) = TEMP_OUT(L)$ ~"""00005180 
NN = NBO 1s 00005170 
me nN BOLDED ee ie nis 00005180 
END LP23 09005190 
Fo AS END LCOUPL 66005200 
__ es 00005210 
de ee ee ne EN A RR RR I I I A 00005220 
ES IF THERE IS MORE DATA, START THIS PROCEDURE FOR THE NEXT SUB-CODE.00005230 
~-——~" -——OTHERHISEs PUT THE PAGE BEING FILLED ON TO THE OUTPUT FILE. */00005240 
__.00005250. 
ce ee a a ra ae er - 00005240 
IF IMP = O THEN GO TO INITL3 ee 00005270 
Bey ge ee rr nr creme rn ea toy “00005280 
Loop4: DO K = 1 TO sivear WWES> _ es ____ = 00005290. 
orn DUTT EILE (GUTS) SKIPCLYS OO” 00005300 
Loops: ODO L = 1 TO COL; ae 7 __00005310_ 
TE S—— BUT FILE (OUTS) EDTT (COLFILGRI) _ 00005320 
(SK1P (0) ,COLUMM (MGCL) 1s ACHIDTH) D3 ee fetes pie ot DOOOS330 
TEND LOOPS 5S 0000 5340 
END LOOP4; ee beat cee, Penne enero 1 ae 
——"“S TOPS ~ PUT FILE (OUTS) PAGES = 000053 
PUT DATA (PAGE)3 _ 6 00008370. 
CLOSE FILE (SORTOUT): ~— eae 00005380 | 
FILE (OUTS)$ _ a =o 23 cried ita. BOOOSS90. 
a 00005400 
; es i Sch gic paps oie apecrtaye WOOO OSL 5 
~————7 "FH TS PROCEDURE STARTS A NEW COLUMN. — %/00005420 
__00005430__ 
ge ee eae eee ne ed “00005440 
HEADR: PROCEDURE (NP)3 . _ _ 00005450 _ 
ECL AR 00605460 
(Kyl) . FIXED BINARY (211:0)3 _ 00005470 
Sp re TED BINARY ColeOds = “00005460 © 
3 00005490 
ae Se ee ee — ™~~“90005500 
_ - 00005510 _| 
——— Fe PO PHE COLUMN SUBSCRIPT FOR THE NEXT COLUMN. : > ¥/00005520 
_____ 00005530 _ 
_ eee oe ae -— - aan ae “00005540 
IND = INO + 13 ; 00005550 __ 
aaa Ee a ° 00005560 
_ 00005570 _ 


fE—-— FE-ALU THE COLUMNS ON THE PAGE ARE FULL, WE E MUST PUT THE COLUMNS 00005580 


ON THE OUTPUT FILE. THEN A TITLE 1S ADDED TO THE OUTPUT FILE 00005590 


_ Oo. 
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FOR A NEW PAGE. WE WILL BE FILLING COLUMRN 1 OF THE NEW PAGE. ~~ 700005600 
_0000561¢ 


218 


00005420 
IF IND-= IMAX 00005630_ 
SE PHEN: DOS... ee 00005640 
IND = 13 __ 00005650 
eee "HDI DO L = 1 TO SIZE-LINES2; 00005460 
oe __. _ PUT FILE (OUTS) SKIP(1)3 00005670 
. oo "HD22 DG K = 1 TO COL; ~ 00005680 
____ PUT FILE (OUTS) EDIT (COL#(KyL)) 00005690 __ 
SKE (0) 9 COLURN (MELE) GS ACHLDTHID 00005700 
COLS(Kekt = Fs ee ee ee 00005710 
TO END HD23 tee is a! 00005720 
: END HD1; —- - 7 00005730 
PAGE = PAGE # 130. 2 2 _ _ 00005740 
IF SKPP_= ARG THEN DO; ~ ee 00005750 
i aaa pe “SKPP & S7 = "37... _ “00005760 
ee, coi _.. SKPH = MARGS 00005776 
ee a ae END; “ 00005780 
es. : oe ELSE DO; | oo 000065790 
aaa ~~ = “SKPP = MARG3 _ 00005800 
m SKPH = SZ -— 123 _ : 00005810 
a i aii i a aries ENDS ~ ce 00005820 
oe PUT FILE (OUTS) EDIT (PAGEsHEAD, TITLE) - 00005830 
(PAGEyLINE (LINEH2) ,COLUMNUSKPP),F(4)s+SKIP{O),COLUMHL 00005840 
ee SK PHD AC 3) LINE (LIMET IX CCSZ—LTH-HARG+1)/24+HARG-1)2 . 00005850 
. ~ ACLTH))3 00005860 
oe ____ PUT FILE (OUTS) SKIP(LINES2-LINET)$ ee -00005870. | 
7 ae ENDS 00005886 
See Se ee . i 00005 890 
= i ee ~ ee : ; 00005900 
Wha INITIALIZE LINE COUNTERS FOR THE NEW COLUMN. FL NO0D05910 
wR ENEUSALT ES JANE COUMTERS FOR THE NEW COLUME nano eoee 
lee oe ey a OOUOSSS0 
ETP OF RST = PAGE THEN CN = CINESIS — —— a — 00005940° 
ELSE LN = LINES2; te _ _ 00005950 
aS \| 2 \ | - : ee ~~ "00005960 
IF NN = 0 THEN LN = LN = 13 _ 00005970 
TRE T URNS ~ 00005980 
END HEADR; _ 00005990 
= eo Se : = 000060900, 
_ 00006010 
FR YHTS” PROCEDURE TAKES A STRING -BREAKE— AND BREAKS IT UP INTO ~~ 00006020 
PIECES OF LENGTH -LNTH=, STORING THEM IN ~BROKE-« ~NU- IS THE 00006030 
NUMBER OF PIECES IT TOOK. a aati A as ~~~ # 700006040 | 
00006050 
— GO re 90006066 
BREAK: PROCEDURE ( BREAKE » UNTH» BROKE» NU) 3 00006070 
DECLARE ae aaa ee 0006080 
BREAKE CHARACTER (132) VARYING, _ = ___ 00006090 
TENTH ETXED BINARY (3170), 0 77 aces 00006100 
BROKE (4) CHARACTER (WIDTH) VARYING, 00006110 
I ETRE BINARY T31,07,.. OOOO 6000612677 
L FIXED BINARY (31,0), 00006130 
SUMED ~™~—“—STTTUTUOUCOCO FE XEDD BINARY’ (BO), ; — 00006140 — 
TEMP CHARACTER (132) VARYING? __ 00006150 
ee Rae ~ a ee —_ = 00006160 
NU: 03 00006170 
—TINTTS —~synT— SOs ee “00006180 ~ 
TEMP = BREAKE3 00006190 
SRCH:” f= INDEX(TEMP,T Ty = “60006200 ~ 
IF L = 0 Bosak 000062107 


o.. 
ERIC 
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aN EIEN Dlg. 8 te ee ee a : ~~ "66006226 
L = LENGTHITEIIP); _ 06006230 
eee SIMD BS SUBD LO aa C0C06240 
IF SUH1 > LNTH 00006250 _ 

THEN DOS 90005260 

_ ee NU = NU 4 13 _ 00006270 
ee ee BROKE (NU) = SUBSTRIBREAKEs:1,SUM1—-L—-21)3 ~ 00006280 
oe NU BU 000062890 
“BROKE (WU) = SUBSTR(BSEAKEs SUMI-L41) 3 00006300 

pe ee RETURN § ee 0000 63:10 | 
eee END; 0000€320 

ELSE DOs 0006330 

a a aes NU = NU + 15° 00006340 
_BROKE(MU) = SUBSTR(BREAKEs1,SUM1)3 == 00006350 

POOR Gg ee ee ET ee RETURNS —~ 00006369 
END; eee 0006370 

aires "ENG? 00006380 
SUM: SUM1 = SUM] + (L = 1)3 ee 0006390 
eee TE SUN 1 <=LNTH THEN DOF 7 : ~ "90006400 
TEMP = SUBSTR(TEMPsL41)35 eee __: 00006410 
EE SUNT = SUL + TG viz 00006420 
GO TO SRCHS 00006430 _ 
TEND BG 00 6440 

NU = MU + 13 _ ; x a _ C0006450. 
on" BROKE (NUS = SUBSTR(BREAKE, 1, SUMI-L)$ OO QQ 006460 
BREAKE = SUBSTR(BREAKE sSUM1+Z—L) 3 ee 00006470. 

aaa aa aie ~~ SUML ‘ Be eds ee ei em ge eer se ee eg ye geen We SS ae 00006480 
GQ TO SUA; ere 00006490. 
END BREAK ST eae as ~ “~~ 00006560. 
oe 00006510. 

ee a ee ce a ee oe ree a eee eee : 2 HE BG EESO 
4 THIS PROCEDURE TAKES A VT NUMBER LIKE '003406' AND ELIMINATES — 00606530 

——— =""" “CEADING ZERGES SU ‘IT BECOMES '3406". ~~ ~e ~ */00006546 
_ 00006550 

a Sa Se ee ~ 00606560 — 
DELET: 7 _00006570_ 
EE PROC DURE a "" 90006580 
DECLARE Ce ee ee ee ee ee 00006590. 
TT ee ee SE EXED BINARY (31,07) aes O0006E30— 
TEMP CHARACTER (6) VARYING, 00006610 
BLANK CHARACTER CLS INITIAL CT 7," 70000 6620 
; a 00006630 | 
eee "0006640 
LP: DO M = 1 TO 63 eee ot 00006650 - 
TF SUBSTRUT EMP Hy LYE1OT THEN DOF a ; 00006660 © 


if M=) THEN VT=BLANK]||SUBSTR(VT;,2)3 00006670. 


ELSE VT=SUBSTR(Vis1;"%-1) [1 O00006680 


BLANKIE 00006690 _- 
TT ; SUBSTRUVT? MF103 ~"900006700— 
END; 00005710 
a aie’ ee TELSE GO TU | a "90006720 
END LP; : 00006730 | 
FIX? VT = SUBSTRIVT, 6=HDFLT NDI 9000 5 740 
RETURNS _ 00006750 | 
“END DELET$; 0G006760 
eee ee ee ea 00006770 __ 
~ “TEND BUSINESS; a eas OO “00006780 _ 
aed 00006790 _ 
END ANNVCT$ 00006800 
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DOCUMENT NUMBER ANNUAL 


ops ape es Sean ac ages Sas: ise ph, ee BAS i osc Sag Casing eae 


We se te ste 


igl. 
we vee s 
aA 


Se SRE MK AE se oe aie ate Heme se sie He Se Beak ak 3 x 2 oe Bese Be Be BE REDE HE KR =» 7000000 10. 
- ____ */00000020 
*/00000030 
MENT NUM BER INDEX ___*/00000040 _ 
PROGRAM * 700000050 _ 
* _ Paeeeeee ae oe case 
% * /00000070 
* PURPOSE: THIS PROGRAM PROOUCES THE | ANNUAL OOCUMENT NUMBER INOEX.*/00000080 
ee Es ; IT TAKES THE FOUR ARM TAPE DATA SETS AND THE FOUR AIM */00000090 
fa DATA SETS AND CONCATENATES ALL_S& TOGETHER. THEN HWE */00000100 
% SORT THE RECORDS AND PRINT THEH IN A FORMAT SPECIFIED */00000110 
__/* oo BY THE VOCATIONAL CENTER* THIS _GIVES US AN ANNUAL _*/00000120 
eT NOE X 0 */00000130 
* es oo ; 2. ___*/00000140 
Fe DEFINITION OF VARIABLES: * /00000150 
a le COL -- NUMBER OF COLUMNS IN THE INDEX PRINTOUT. ss Z00000160 | 
FH HEAD —-— HEADING AT THE TOP OF > EVERY INDEX PAGE WHICH HAS * 7000001 70 
/% THIS FORM:  'AIN/ARM 69-70". fh ete ee 
fe 37° CINEWY =~ THE LINE ON THE TITLE PAGE ON WHICH —HEAO-— AND ~/000001 90 
2 __THE PAGE NUMBER APPEARe 20 = /00000200 
FG CINEHS <= SAME AS -CINEHI- BUT FOR ALL SUCCEEDING PAGES. 700000210 
* 5. LINESL -- THE LINE ON THE TITLE PAGE ON WHICH THE SUB= TITLE#/00000220 
marae? 5 aia "KK BPEARS« — 700000230. 
Ee 6. LINES2 -- SAME AS -LINESi- BUT FOR ALL SUCCEEOING PAGES. _ */00000240 
OE INET <= CINE ON ALL PAGE BUT THE TITLE PAGE ON WHICH * 700000250 
% THE INDEX TITLE APPEARS» | _ 00000260 
TEE LT SS" LENGTH OF INDEX- TITLE. ~ aaa *700000270 
7% 9. HARG -~- LEFT-HAND MARGIN OF THE PAGE. -__ 400000280 
FE OT NG == ARRAY OF COLUMN “MARGINS; EACH MEASUREO FROM | COLUMN * /00000290 
a i. ___. _.*/00000300 
FEO OTT NBA -= 'NUNBER OF BLOCKS “OF OUTPUT ON THE TITLE PAGE. A # 700000310 
/* BLOCK OF OUTPUT IS A FEW LINES OF OUTPUT, ANO ____*/00000320 
ang ooo BLOCKS ARE SEPARATED BY A BLANK LINE. << ~ * 700000330 
* 12. NBR -~ NUMBER OF BLOCKS OF OUTPUT ON ALL OTHER PAGES.» * /00000340 
——— Fe OOS TON PB == NUMBER OF CITNES OF “MUTPUT IN ORE BLOCK. -— —~¥700060350 — 
/* 14. PAGE —— PAGE NUMBER OF AN INDEX PAGEs * /00600360 
FE OBS GUE S=TINOICATES WHETHER THE TITLE: “PAGE WILL BE ON THE LEFT 700000370 
% a (L) OR RIGHT (R) SIOE_ OF THE PUBLICATION. * /00000380 
~ BOOTS. ST ZE SS MAK IMUM PAGE LENGTH ALLOWEO. THIS TNE LUOES HEADING 790000390 
7% ANO INDEX ON THE PAGE. */00000400 
FE ES SURTIN -— ETGHT SUBSET DATA SETS | EROM QUARTERLY RUNS; ALC ¥*/00000410 
% CONCATENATEO TOGETHER TO FORM ONE LARGE SETe * /00000420 
camarinany & aaa — es SURTOUT ==7-SORTED DISK FILE.” ~~ —~ 700000430. 
: 7% 19- SPACE1 ~~ NUMBER OF COLUMNS BETWEEN THE VT NUMBER AND * /00000440 
ge ee ee TE CE IN THe PRINTOUT. 3 ZOO0O00450 
1* 20. SPACE2 —- NUMBER OF COLUMNS BETWEEN THE ISSUE AND PAGE * /00000460 
ee “NUMBER CIN’ THE PRINTOUTS ae *7 00000470 — 
1% 21. STR -- STRING USED TO INPUT AND OUTPUT FILE RECORDS « * 00000480 
TE 92 SST RIGHT—HAND MARGIN - “OF THE PAGE. — ~~~ f00000490 — 
7 23« TITL -- TITLE OF THE INDEX. * /00000500 
7-545 16" = NUMBER GF STGNTFICANT DIGITS “IN THE VT NUMBER. 700000510 
* 25. COL# -—- REPRESENTS THE COLUMMS OF A PAGE STARTING BELOW * 700000520 
ry £ ae oe HEADING © —THE-FIRST SUBSCRIPT OF THIS | MATRIX ~~ * 700000530 
% REFERENCES A COLUMN AND THE SECOND SUBSCRIPT * /00000540 
Pe = REFERENCES A LINE IN THAT COLUMN. ~"¥* 00000550 
ES 26. IND -- THE CURRENT COLUMN BEING FILLED ON AN INDEX PAGE. _ */00000560 
—“F= Bi. ISSUE =— FS A'S -EHABACTER CODE: THE FIRST CHARACTER IS “rat ¥7/00000570— 
/* FOR 'AIM' OR ' ' FOR 'ARM'3 THE SECONO ANO THIRD  */00000580 
a CHARACTERS GIVE THE SEASON TE fz tH FZ YSPTZTSUTL ~~ *700000590— 
/* 28. NN -- THE WEXT LINE TO BE FILLEO IN A COLUMN OF AN INOEX — */00000600 
3K ——~— BAGE « : “700000610 — 
a 29. PG -- A PAGE NUMBER READ OFF A SUBSET FILE RECORDe _ 


ENS 


*/00000620 __ 


ee 7 Be eit ee ie eee ee iS (a ec gen me age RR EA 
30. SKPH == COLUNN Ti HHICH WE START PRINTING ~HEAD-. * /00000630 


—-—y%3-——"5 
ee ae 31. SKPP -—— COLUMN IN WHICH WE START PRINTING THE PAGE NUMBER = /00000 640 
SOE TTT mmm NE TAN TNDEX PAGE. — - ea % 700000650 
/* 32. VT -- A VT NUMBER 2EAD OFF OF A SUBSET FILE RECORD. * £00000 660 
—Fx 33S YRS" THE YEAR OF “THE TAT OR TARNO TSSUE HEN “A ~PUCUNENT =/ 00000670 
1% APPEARED IN iTe ___. _*/00000680 _ 
Ya 340° THESRTA =~"PL/i CALL TO SORTS Oe #7000006 90 
/* 35. RETCDE ~~ CODE RETURNED BY THE 5 SORT INDICATING SUCCESS OR */00000700. _ 
7% ee FAILURE. * /00000710 
7 366 SFIELD —- INDICATES TO SORT WHAT PART OF THE RECORDS TO */00000720 _ 
V% "SORT UNDER. */00000730 
/* 37. RFIELD —-- DEFINES FOR SORT THE TYPE OF RECORDS TO BE. #700000 740 
7= Tarr" SORTED. # £00000750 
/* 7 een ; _ */00000760 | 
“"—""F7R-— PN PUT TO THE PROGRAN: ~~ ~ - “700000770 — 
* -SORTIN- */00000780__ 
"FE FETS IS THE & DATA SETS: ON ONE DR THO MAGNETIC TAPES») WHICH */00000790 | 
* ARE SAVED AFTER EVERY_QUARTERLY_ RUN OF AIM AND ARM. *#00000800 | 
FEL SVS ENS INPUT GN CARDS * 700000819 
/* THE INPUT ON CARDS RELAYS THE OUTPUT SPECIFICATIONS TO THE */00000820 | 
eee £5 -""BROGRAMs THE DATA IS GNE CONTINUNUS STREAM ON THE CARDS = 700000830 
Bo AND IT WILL TAKE SEVERAL CARDS. THE VALUES OF THE. VARIABLES = 00000 840 
ny £2 IN THEIR ORDER BELOW ARE THE DATA ON THE ( CARDS. */00000850 
/* —PAGE- F(4) * /0G000 860 
eg SS STZe=  ——C*—=—“‘i‘“‘;<;«<z RS =a : = = /O00000870 
/* -Wwo- F(4) — * 00000 880 
TY BT MA RG ST EY a aa */00000890 
; /* ~SZ- F(4) ; */00000900 | 
TR LT MER T= SF OOOOC ILO 
7 ~LINES1- F(4)— * 00000220 
Sg ee INEHS= OME #700000 930 
a ~LINET- F(4) * 00000940 
a”, re =LINES 2200070 FUG ~ - “#7 00000950 
/* ~SPACE1- F(4) */00000960 _ 
[OTS PAC EOS OEY — —— 3706060870 7 
7 ~COL- F(4) ee seston st */00000980 
x = BRRAY COL FT4Y ee - 700090990 
/* —-NPB- F(4) oe _—— * 700001000 
YTB RE ERY — — : “¥700001020 
* -LT- F(4) * /00001030 | 
TRE STITT ES OO~OO”::CTET' = acl */7/00001040 — 
/* -HEAD- A(13) 00001050 
7 T= QUE-- “TACT : 700001060 
/* THESE VARIABLES WERE DEFINED IN THE PREVIOUS SECTION AND */00001070 _ 
Te FHETR VALUES CAN ‘BE “OBTAINED FROM THE TYPED WRITE-UP DR THE. */00001080 
/* VOCATIONAL CENTER- on. */00001090 _ 
en £ sa a = ; - # 700001100 — 
* SPECIAL NOTES */00001110 © 
Fe PRINT THE INDEX ON THE PRINTER UNTIL TTHAS BEEN APPROVED BY ~~*700001120 
1% THE VOCATIONAL CENTER. THEN IT CAN BE PRINTED ON TAPE AND THE */00001130 
7 OT KPE CAN BE LISTED ON THE™360750 With THE TN CHAIN. THIS WILL * 7700001140 — 
7 GIVES US AN UPPER AND LOWER CASE LISTING» _*/00001150 
De as ee he ig eee a es =/O00G0OI1T60 
PR Re HR See Me SSE SE Se re SB DS a a aS ae hea Me eae ae ae ae he ae eae a ae a Ne Re He Ne AE ae EA A He 700001170 
poses . = ~ a 09011807 
ANNDOC: PROCEDURE ‘OPTIONS (MAIN) $ ; 00001190 
_ “~~ BECCARE ae 60001200 
COL FIXED BINARY (31:0)3 00001210 _ 
aaa HEAD =. CHARACTER (13); 00001220 — 
I ___ FIXED BINARY (31:0)5 99001230 
-_ LiNEHL FIXED BINARY (31:0); 00001240 
oT LEENEH2 FIXED BINARY (3120)9 900001250 | 
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isa LINESYD ~ 7° °° | 7 FIXED BINARY (3220)¢ a 00001240 
_ -LINES2 a FIXED BINARY (3150), oe ; 00001270 
LineT FIXED BINARY (3140)3 00061280 
LT FIXED BINARY (3190) _ : 690001290 | 
GAR RSS: 8S gy Rese Se EY SED BIMERY (3le0)4 00001300 
ee ee MG(4) ; FIXED BIMARY €3190)9 00601310 


NBH FIXED BINARY (3190)+ 00001320 
___NBR _ FIXED BINARY (3120)9_ 90601330 
NPB FIXED BINARY (3190), 00001340 
PAGE FIXED BINARY €3190)9 0. 07001350 


QUE ” CHARACTER (1)¢9. pee ees 0001360 
_ SIZE FIXED BINARY (31:0)3 00001270 


ere ‘SORTIN = FILE SEQUENTIAL RECORD, 00001380 
SORTDUT FILE SEQUENTIAL RECORD: is dees — 60002390 

Secret ore * SPACEL ne FIXED BINARY (31:0) COCR Leo 
SPACE2 FIXED BINARY (3190)9.. 7 9000147) 

are aoe Se ee som mC LAR ACTER €18)9 — 000014, v 
SZ FIXED BINARY (31,0)9 | OC 900014: 0 

—_—~ “TIT ~ CHARACTER 50) VARYING; 00001440 
WE FINED BINADY (3150) oe — G0001450 

—= ; ee 60001460 

tae 60001470 


00001486 
x SORT THE 8 SUP 3ET FILES BY VT NUMBE™._IN ASCENDING DRDER .» PRINT */00001490 
"Fe QUT THE RETJUR CODE. aes a , */00001500 

Bae eh eee eee eee = | ee, ee ee yee = 90001510 

a 00001520 
SORT? BEGINS dsp thud, Send eee ied. sb anise ees as Gere Bee pee e eG — 00001530 
oe DECLARE ; 00001540 

IHESRTA ENTRY (y7FIXED BIMARY (3150)9)2 =... 60601550 
’ RETCDE oo" ETXED BINARY (1570)9 | O0GGLE 4G 

RFIELD CHARACTER (27)5 oe ey eee — OC001570 

“ SFIELD 99 °° 7 CHARACTER (35)9— ae 00001580 
eee Serer yaa “SORT FIELOS=(i+6e€HsA), SIZE=E9999. 85° °° 000014600 
. RFIELD ' RECORD TYPE=FsLENGTH=(18) "3 0 0 OODOLELO 
mn =O AL THESRTA (SFIELD,RFIELDs45056,RETCNE)$ ~ 00001620 

PUT EDIT (RETCDE) (SKIP(3)9F(3))3) 060001430 


“END SORT3_ 00001640 
90001650 _ 
00001660 

* 00001670 
00601680 
00601490 
-~ “ON CENDEILE (SORTOUT) GO TO CLOSE; ~~ UT ee 00001700 
OPEN FILE (SORTOUT); 00001710 
me nB ry TT READ FILE (SORTOUTY INTO USTRY 3) UT Tm mem 90001 720° 
PUT EDIT(STR)(X(5)2A018))3 ae Ors 00001730 

a a cia) TO ‘RD3 ee me See eg ae OR ee EY Ty Gy sy RM : 7 00001740 
CLOSE: CLOSE FILE (SORTOUT)$ ee eae ; 90001750 

a nn) eg ee oh he ere EE) SOGOiT es 
00001770 

~~~ “BEAD “INT ALL OUT PUT SPECIFICATIONS NEEDED TD PRINT THE” INDEX. mm" OOOG1 780 
_ 90001790 

ina “90001800 

GET EDIT (PAGE,SIZEsWD+MARG,SZ,LINEH1L+LINES1,LINEH2,LIWETs 00001810 


hone 


7% PRINT OUT THE SURTED RECORDS AS A CHECK. 


“LE INES29SPACE1, SPACE2-¢COL, (MG(1) DO I = I TO COL) ,NPByNBH, NBR: 000018620 
: . LTsTITLsHEAD, QUE ) 00001830 
Pee ETE (CASS TCOLT FCS) 9 AC LT) SAUIST AULT SO 00001840 

; c0001850 


00001860 
j% PRINTING OCCURS, IN THIS BLOCK 6 wg 2. vnicbensdey nade de Gee an ~*OOOOREMO 


194. 
00001880 
00001890 


“PRINT: BEGIN: — : . SS 00001L S06 


DECLARE 00001910 


Tenn COLH(COLFSIZE-LINES2-1) CHARACTER” CSPACELF154SPACE2)5 ~ 00001920 
I FIXED BINARY (31,0), 00001630 

7 “IND 7 7 FIXED BINARY (31350); 06001440 

ee ISSUE = —CO CHARACTER (3)> Stee 00001950 

7 OE ee “FIXEN BINARY (3130); OOCULY60 
L - FIXED BINARY (3190)5 8§. _ . 00001970 

_ ies \1\ se “XED BINARY (3150)% 00001920 
PG ut “CTER (4), a — 00001¢90 

ee SKPH = 7XE. BINARY (3150)¢% - , 00002000 
SKPP =IXE BI RY (3150), a —— 00002010 

a} VT 0s SHAR CTE? (6) VARYING, — _— ~ "99002020 
YR : — THARS- CTE (20500 — 90002030 


eu 


-——" BEKOT! “"DOUT 


; 00002040 
00002050 

“OW EMNDFILE (SORTOLT) G& TO STC 33 ; —_ - ~ 00002060 
OPEN FILE (OUTS) STRE AS oRINT WUTPUT PAGESIZE( SIZE~4) 00002070 
OPEN FILE (SORTOUT); ; Ss “90002080 
00002090 
00002100 
MAKE INITIALIZATIONS TO BE3?:. PRINTING. eee * /00002110 
AM Ee eed pd : ee ac : = seonei oe 
00002130 


we 


“+ ="Pe QUE = *RI THEN DN: ik Binet eh ele. ky pails adie it ge Gace tenn? ~ 60002140 


SKF. Si = 33... oo 00002150 © 
mo See = THARG@E we cette sete ee Benet 
ENDS __ 7 a — 00002170 
“ELSE try 0 0 eee “ "90002180 
SKPP = NARGS —_ Bae 00002190 

~ SKPH SZ - 123 cia ae “00002200 
END; 00002210 

“1 . TO 5 I ZENL THES2—1 - PO a ee gat eee eg eS re render meen + oe ee Faris. 4 000022 20. : 


1 TUG COL3 00002230 


nou 


ou 


WoW 


DO J 


ses esa COLH(Js 1) SU) bg 0c ort ceri cee teers ores ce eect at ete cette en en a BOB SEZ 

END; 00602250 
ee See Glee ee ee ee “  9@002260 
_ L = NBHs __ 00002270 


fu 


eto oe Be IEE Se 


eke A rag ag see See Gees piveteiteee oe seeticec teres ans aoe eee eee Se Mita OA Sey oe 


IND = 13 00002290 
OU aco ee a ga ed Mn Nee tae Deeks ee et ee ee Bete nae cad 
00002310 
PUT A HEADING ON THE TITLE PAGE: PAGE NUMBER; "AIM/ARM YR1I-YR2', *%/00002320 
*/00002330 

“""- 90002340 
00002350 


ee “PUT FILE (OUTS) EDIT (PAGE HEAD) 00002360 
co PPAGE LINE (LINERL) s COLUMN (SKPP )_F (4) SKIP (0) COLUMN(SKPH) » 00002370 


woe EPL” " DO UT = 1° TO COL3 . “90002400 7° 


een 
# 
1% 


AtIBIVs ~ 00002340 
PUT FILE (OUTS) LINE(LINES1)3 00002390 
PUT FILE (OUTS) EDIT ('VT NO's 'ISSUE',! PAGE!) 000024106 
“" USKIP CO) sCOLUMN(MG 01) )9A(05) 5X CSPACE1) »A(5) yXC(SPACE2Z) ;A(4) 3° 00002420 
END LP1L3 00002430 
PUT FILE (OUTS) SKIPCLY) 3000 eee 90002440 — 
00002450 

ye ee Goo ee 00002460 

WE NOW FILL UP A COLUMN ©&* £N IihDEX PAGE WITH INDEX DATA. THE * /00002470 


CCLUMY HAS A FEN LINES OF PRINT; THEM A BLANK LINE, A =EW HORE ~ #/000024R89 
LINES OF PRINT, A BLANK Lik?s ETT. 2 2 */00002490 


fe HOW WE MUST START A NEY COLUMN 7O°8E FILLED ON THIS PAGE. SO 
7s WE UP THE COLUMN SUBSCRIPT. IF E HAVE FILLED THE LAST CULUFIN | 
a * ON THIS PAGE, CONTINUE HERE. 
IND = IND + 13 oo _ Be ee 
Tmo TF INO = (COL + 1) oo ee i 
7* ADD THE FINISHED PAGE TO THE QUTPUT — */ 
er /* FILE. wd 
THEN DO; : 
° IND = 13 
LP4: DO 1 = 1 TO L¥NPB+L~-13 - 
J “" *  “puT FILE (QUTS) SKIP(1)3 
LP52: DO J = 1 TO COL; ee ee 
a wee PUT FILE (OUTS) EDIT (COLE (J2T)) ~ 
ES TP CO) COCO HC Es) Loa tl er Se ROG ie unc eel ks 
a . 7 7 ““COL#H(J9T) = ' 837 
END LP53 7 
—s ° “END LP43 
7* PUT A NEt! HEADING OM THE OUTPUT FILE */ 
ie "7 FOR THE NEW PAGE. * / 
L = NBR3 2 
eisai ora “= "AGE = PAGE TE ULF UTTT To a 
. IF SKPP = HARG THEN DO; - _ 
oman mn ee cece ce nett IIE ae eaten a at Re a Be 
SKPH = NARG3 ; 
ee To ere mes me eee END § aaa -_ 
ELSE DO; ; 
ers ail Mee ee _ “""""SKPP = MARG3 a aka : 
yee SKPH = SZ — 123 eee eee 


2° po t=1 TOL: 
: DO J = 1 TO NPB: ; a ee 
“ "READ FILE (SGRTOUT) INTC (STR)3 

GET STRING (STR) EDIT (VT2PG,ISSUE,YP) 


(A(6)9A(4)9A(3)2A(Z2))3 
CALL DELETES . 
PUT STRING (COLHE(INN.NN)) EDIT (VT,ISSUE,YR,2G) 
(X(C6=NE) sA CHD) px (SPACE1L)D ACB), A(Z »XCSPACE2)2A(04))5 
NN = WN + 13 
END LP33 
NM = NN 
END LP23 


+ 15 


oe 
PUT FILE (OUTS) EDIT (PAGEs+HEAD:TITL) 
“"""""( DAGEg LINE (LINEH2 )yCOLUMN(SKPP)2F(4) 5 SKIPCO) » COLUMN ( 


“ACLTIIE 
PUT FILE (OUTS) LINE(LINES2)3 —— _ re 
mse" pet pO ft = 1 TO COLs : 
PUT FILE (OUTS) EDIT ('VT NO',"ISSUE',"PAGE') 


SKPH)2A(13)sLINEtLINET.) 2X ((SZ-MARG+I1~— LT) /2+NARG—1) > 


“00002500 
000025106 
00002520 

0000253 
00002540 
00002550 
00002560 
00002570 
00002560 


000025¢0 


00002601) 
NOCO2ZELG 
00002620 
00002630 
00002646 
00002650 


* /00002660 
* /OC002670 
*/OO0KD26EO 


O00026¢SH 
00002700 
00002710 


“00002720 _ 


00062730 
00002740 
00002750 
00002 To 
OO002ZTTIO | 
00002789 
00002740 
00002800 
00002810 
00002820 
O00002 820 
00002840 
00002850 
00002860 
00002870 
O0OO0N2Z BEG 
OO0O2E90 © 
00002900 

00002916 
00002920 
00002930 
00002940 
00002950 
00002960 
00002970 
00002980 
00002990 
00003000. 
00CO3V10 


~ 00003020 


00003030 
00003040 
00003050 — 
00003060 
00003070 
00003080 
00003090 
00003100 
00003110 


TT TE SK IP (Od g COLUIN(MG IT) 35 A059 XCS! — oooc eh 
er mire — —-.0900..130 © 
= END LP63 - ; 239003140 
PUT FILE (OUTS) SKIP(1)3 06063150 — 
END § = ™0c1003150 — 
05.0031 70_ 
— ate a ae ~ — = “9.003180 
/* NEW PAGE OR NOT: INITIALIZE THE LINE COUNTER AND CONTINUE ~ */0C 002190 
“PE” PROT ESSING THE INDEX DATA. ~~" fO0C003200 
00003210 __ 
aa ~~C0003220 _ 
NN = 13 __ ae oe ee _ 00003230 
ee GO TO LP2; ~ _ ~ 00003240 
_— 7 ; 00003250 
- a aaa aan a A - “00003260 
7* THIS PROCEDURE DELETES LEADING ZEROES FROM A VT NUMBER. THUS, */00003270 
7*®- TOOTOE5* BECOMES "7095S FI */00003280 _ 
ee ee eee tee 00003290. 
Ne ee pee ee ee ee Ae ee ee 00003300 
DELETE: PRUCEDURE$ a, _ - eee eee _ 00003310 
aE DECLARE woe ee : a 00003320. 
FIXED BINARY (31,0); 00003330 
rt “CHARACTER (6) VARYING, 00003340 _ 
3 00603350 
TT EB MT aaa Pos i “""9 0003360 
LPS: DO M = 1 TO 63 ______ 00003370 
TT STE SUBST RITEMP 9 hy LD) BOR “00003380 
THEN DO3 00003390 
a To TEM ST THEN VT = OF TT SUBSTRIVT, 275, os ~O00003400 
ELSE VT = SUBSTR(VTs1l,M-1) JI § ' Jl SUBSTRIVT,00003410 
a ee ee ee MELI § = =—-00003420— 
END$ 00003430. 
ST NESE GO TOF TX SS OO0003 440 
END LPSs 0000345a 
EEX OOOO SE SUB STRUT 5 6=HOETS WTF == “00003460 
RETURNS ‘ 00003476 
i "END DELETES So ae _ ~~"§60003480 — 
__ 00003490 
pe ee an a aa ee -_ “90003500 


ys WHEN ALL THE DATA HAS BEEN READ OFF THE DISK FILE, WE ARE ALMOST -* 
———" 7" THROUGH. ADD THE PAGE THAT WAS BEING FICCED TO THE OUTPUT FILES # 
#* CLOSE ALL FILES AND TERMINATE THE PROGRAM. 1 


“CLOSE FILE CSORTOUT)$ ~— i i ia — 


~~ STOP = ~ 


&/00003510 
700003520 
THE INDEX IS COMPLETE.*/00003530 

'00003540 | 


00003550 


“@0063560 - 


LP7: DO I = 1 TO L*NPBtL—15 00003570 
ae ~~ PUT FILE (OUTS) SKIPTIT§” "90003580 — 
tps: DO J = i TO COL 00003590 
TOTS PUT FILE COUTSY EDIT (COLES, TY —~——~~~"90003600 — 
(SKIP (O) COLUMN (MG (J)-1)9A(154+SPACE1+SPACE2)) 00003610 
i aaa: | |) a ©) al ee ~~ ~~00003620 — 
END LP73 00003630 
BUT FILE COUTTS) PAGES ~ ‘00003640 — 
CLOSE FILE (OUTS); 00003650 


PUT EDIT TTLCAST PAGE USED TS *,PAGE) CSKIPTSIV ATI IVE “C4973 


)3; 00003660 
00003670 | 


TEND PRINT “00003680 
ee Dee ete 00003690 __ 
END ANNDOC 5 : 00003700 


197. 


EDIT OF SUBJECT, AUTHOR, AND 
SUPPORTING SERVICES 


‘Te 
~~ 
bo 
ae 


J Bese 2a Be Se BE 3h Bs SRS RE SE aE A 
/ $ = 
1% EDIT FE 
* Ss 
= ( Bee ere, Seg et eae 
13 ae 
° ys PURPOSE: THIS 
/ 


7% SET CAN BE ADDED, DELETED: OR REPLACED WHILE THE 
ve COPYIBG TS BEING DOM — ae 
/% 
/SIRPUT TO THE PROGRAH?E 
op -SYSIlit—, InPUT Ur! CARDS: 
[et _ THE FOLLOWING CARN SET~UP IS REPEATED FOR EACH DATA SET ON 
7 THE TAPE. FURKAT OF THESE CARDS IS 'FREE'3 THE DATA CAN BE 
7 If ANY COLUMNS AS LONG AS AT LEAST ONE BLAWK IS RETHWEEN 
“TT se OO VAR TABLES. THE ORDER OF THE DNATA IS AS FOLLOWS: 
ie oo oM-, THE NURBER OF RECORDS TO RE REPLACED GN THE RPaTA SET. 
oe OT Ke THE NUMBER GF RECORDS TO BE DELETE) FROM THE DATA SET. 
se "REPLACEMENT DECK' -- TRIS IS A DECK WITH THE DATA TQ BE 
° fe REPLACED AND ITS REPLACENERT. FIRST, "!E HAVE A KEYIORDs 
rE A DATE, AMD A VT WUFBER, EACH Tit eee THIS IS DATA Iv 
“oe OTT CW RECORD WHICH IS TO BE REPLACED IF SOME PART.e THEN, WE 
1 HAVE THE KEYWORD, DATE? AND VT MUABER FOR THE REPLACEINEMT. 
7 fa THIS PATTERM CURTIMUES "i? TIMES. 
es ‘DELETION DECK! -=— THIS GIVES THE KEYMORD: DATE, AND VT 
yp TC NUMBER, EACH IM QUCTES, UF A RECORD TO RE DELETED. THIS 
7 OCCURRS -<K- TIMES. 
~ 7x OTT ele, THE NUMBER OF RECORDS TO BE APRED TQ THE GATA SET. | 
/* tADDITION DECK! -= THIS GIVES THE KEYWORD, DATE, AND VT 
“oe NUMBER, EACH IN QUOTES: UF A RECORD TO RE ADDED. THIS 
/* OCCURRS -L—- TIMES. 
es ~~ NOTES IF L=Q, THERE aRE NU ADDITICNS. IF K=O, THERE 
1% ARE NG DELETIONS. IF M=0, THERE ARE NO 
yg mom etme eo ACEMEMTS. IF ALL THREE ARE ZERG, THE DATA 
* SET WILL ONLY BE COPIED. 
ee fo sean, See ka ee a a ace al ie Se 
JERE stents st ole sie ste ae afk ole ats ale ak ale ste aie 3g [e 2ff aie aie oie ae aie x AEA AE RE HE BIE AC RE He 2 BEA AEF Be aig sie 3 21 3e No OK Bie AS AS 3s oF 
EDIT: PRUCEDURE OPTIONS (MAIN) $ 
“DECLARE (SUBLLEM, RECORD LEN) FIXEO BINARY(31,0)5 0 Stee 
INDEX CHARACTER (4) 5 ae 
——— “GET FILE(SYSIN) LIST(SUB_LEN,INDEX)3~ ~ i. ° 
RECORD _LEN=SUB_ LEN+83 
= "FE RECORD_LEN<18 THEN RECORD LLEN=18 3" ~ 
BEGINS 
ae Pee CL AR ne A a ee ae a at Boe 
FIX FILE SEQUENVIAL RECORD, 
eT ENP “"—""ETTE SEQUENTIAL RECORD, © 
BLANK _ CHARACTER (1)+ 
=" DURAY CHARACTER (RECORD_LEM™), ~ 
REC (50) _ CHARACTER {RECORD_LEMN), 
Sig a pe Nea “CHARACTER (6), See ee I 
PUB __. CHARACTER(2)> oe 
ey = SUB ~ CHARACTER (SUB_LEN) VARYING, — ~ 
END CHARACTER (1) INITIAL ('™"), 
eee SUBL 7 “CHARACTER (SUB_LE™) VAPYING, 
; DUM (10022) CHARACTER (RECORDLLEN) + era e 
GET FILE(SYSIN) LIST (MsK)3 
Oo ee “T——"FevH EQ THEN GO TO TEST3 ~~ te aaa 
Caapee OU STO re Meee Cys bas 


O_ 
ERIC 


MAGNET IC 


see! 
Be Se SHE ais Ae SR IR Se AS AE 


T SUBJECT DATA SETS ON 
RECORDS FRU EACH DATA 


CAN COPY THE EIGH 
TAPE TO AMNGTHER TAPE. 


PROGRAM 


ax /OOGO0010 
*/00000020 
=/OOROCEAG 
*/000C0U40 
* /00G00050 
= /O00000U40 
*x/00000070 
—*/00000060 
*/O00000080 
*x/OAGH001LGH 


 * /QO00GLLO 


¥/0C000120 
* /00000150 
*/00000145 
2 /OQ000015G 


700000160 


¥/O00001 70 
* /OGQNO0LKG 
*/Q0000190 
* /OOGOO2ND 
#/00000210 
= /OVO00229 
*%/00000250 
* /00000249 
*x¥s/N00N0250 
#/O00000 260 
*/O0000270 
x /ONOHONOO REO 
H/GONANGZYEN 
*/ONO000 200 
x/HOOODS1LA 
= /N0N00320 
*/00CONS30 
*/QO000 240 
*#/OGCO00350 
*/O0000 360 
#7000003 70 
*&/OONOGUSeO 
oon0n3¢gaA 
00000400 
o0go041o 
ON0NVD420 
“00000430 
00000440 
00000450 
00000460 
“900000470 
00000480 
~ 00000490 
00000 500 


00000510. 


00000520 


00000540 


00000550 


00000560 
oo000s 70 
ooovud 580 
00000590 
00000600 


o0C00610 | 


00000620 


00C0U530_ 


tomas 


shee cao sd 


tela t2tbbigsocabise 


Tae aticg ott 


ect, 


199. 


—~Loop3aA: DO Il = © TO 257 


"90060630 — 


GET LIST (SUB+PUB2¥T)$ 0 00000640 
—. ae IF INDEX='SUS8J" THEN SUBJ=SUBIIEND3 00000650 
ELSE SUBJ=SUB3 00000860 __ 
“DUNTIs TIY=! “00000670 
PUT STRING(OUMN(1,21)) EDIT{SUBJ:PUSsVT)(ALSUB_LEN) sA(2)9A(6)) 3 00000680 
~~~" END LOOP3A3;— OS™ “00000690 
END LOOP33 ee _ 00000760. 
~TEsTi "1E °K = O THEN GO TO OPEN; 00000710 
LOOP3B8: DO I = 1 TO K3 eee Pare 09000720 = 
“GET CIST (SUS; PUBSVTI5 ~ 00000730 
IF INDEX="SUBJ" THEN. SUBJ= -SUBIIEND$ 0000740 | 
Np ee ee ELSE SUBJ=SUB;3 7 00000750 
REC(I) =! '5 a 00000760 
“——~—“ BUT STRING(REC(I) ©) EDIT (SUBJ PUB, VT) CACSUB_LEN),A(02),A(6)75 “00000770 
END LOOP3B3 00000720 _ 
"TY PENT OPER -FILECFEIX) INPUT SEQUENTTAL RECORDS ~~ 00000790 
OPEN FILE(TEMP) GUTPUT SEQUENTIAL RECORD; oo00o0sca 


Tome NET" ON ENDFILE (FIX) BEGIN: a ~~ 00000816 
GET LIST (L)3 00000820 
BT PELE SYSPRINT) SKIPI4I¢ ~~ —— ~ 00000830 © 
IF L = O THEN GO TO CL; 00000840 
Penn HA OOPS SE DO IT ETT TO CS ra 00000850 ~ 
GET LIST (SUB +PUBs VT) 3 = 00000880 
7 ee SUBS = SUBUUTE END 00000870 
DUMHMY=! &s 00000880 
——-puT” STRINGC( DUMMY > ~~) EDIT(SUB Ws PUBS VT) CAC SUB_LEN) 9AU2)3A06))3_ 00000890 
WRITE FILE (TENP) FROM (DUMMY) 5 _ ae _ 00000506 
EEE BUT DATA CDURMY) GF OE eee “OOQN0GELO 
END LOOPS; . = ; _ ___ 00000920 
"CLE" CLOSE FILE(FIX), FICE(TEMP) 3S ~~ 00000930 
GO TO EL23 __ 00000940 
i nt rns aaa aE “00000850 
NXT: READ FILE (FIX) INTO (DUMMY); 00000960 
TTT ETL EO THEN GO TO CSELS OOO — “=H 0000970 ~ 
Looe4: DOI] = 1 TOM; ___00000980 
ee ee ~TE DUMMY = Dur CIT) THEN DOF = To "O0000990 
; DUMMY = DUN(I,2)3 | _ 00001600 
FO WRITE FILE (TEMP) FROM (DUMMY) 3 00001010 
PUT DATA (OUM (12215 00001020 
ee —purntiy 2) = tREPCACEDTS "90001630 
GO TO NXT$ ; ___ 00001040 
Oa eg ae ENDS!” aaa 00001050 
END LOOP4; ee ee 00001060 | 
——CBLT: “IF K = 0 T HEN” GO TO LBL2;. | 00001070 
LOOP4A: DO I = 176K _ 00001080 | 
ee Ee “DUMMY =” RECUIT THEN DO; cr —— 00001090 
REC(I) = *DELETED'; _ 00001100 | 
— a _ PUT CYST CDELETED'Y; 00001110 
GO TO NXT3 __ 00001120 
Ee gee ere ee tea re ENDS OT GOO0L130— 
END LOOP4A3 00001140 _ 
“TF BESs WRITE FILE (TEMP) FROM COUMMYD § . 00001150 
GO TO NXT; . - ee 00001160 _ 
= Eig eo ~ = 0vU001170~ 
3 : me _ 00001180 __ 
———“STOP2” END EDIT? 900011°0 


aft. 


200, 


DOCUMENT NUMBER EDIT 


ony 


VT ISSUE?” PROCEDURE OPTIONS (HAIN) $0 7 —™———""G01010 
_ DCL > (1 BUFFER_DISC, _ noes : a 001920 | 
as "3 DISC_KEY CHAR (6); 001030 
2 DISC_INFO CHAR (12), 001040 
T CARDING” “001050 
2 CARDLKEY CHAR (6), _ 001070 
. “a “ACTUAL_INFG CHAR (127, : 001080 
er ee eee 2 FILL oe (c. | a ee __ 001090 
“2 CHECK. CHAR (1)3 001100 
OCL _END_CDE. or BINARY (15:0)> CARD HOLD CHAR (16)3 001110 _ 
. : END_CDE=03 001120 
= a ON ENDFILE (DISC) GO TO EOV23. oe _. 001130 | 
~~ 7 —"""" PEAD FILE (DISC} INTO (BUFFER_DISC) 3 001140 
READ1?: CARD_HOLD=! '3 6 is Saath once. sepplacalibunician cudnt deers Sal sie ONL O 
ee TES SETS" ON ENDFILE (CARDS) GO TO EOS13 001160 
READ FILE (CARDS) INTO (CARD_LIN)$ 001170. 
eS CARD_HOLD=CARD_KEY || ACTUAL_ItFO3 001180 
IF CHECK_1= *A* THEN GO TO ADDTS 001190 
Terre netere nB  E ETE CARD KEY = DISC_KEY THEN GO TO READ_DISC3 “001200 
Bo IF CARD_KEY > DISC_KEY_ THEN 002.210. 
eT ~ “WRITE FILE (TAPE) FROM (BUFFER_DISC) 3 001220 
IF CARD_KEY < DISC_KEY THEN GO TO READ13 _. __ 001230 _ 
READ_DISC*® READ “FILE (OI1SCS INTO CBUFFER_DISCI; 001240 
GO TO DUPS; ee ee ee ee 001250 
EEN OTE TOO TE CARDLKEY > DISCLKEY THEN DO3 002010 
WRITE FILE (TAPE) FROM (CARD_HOLD)$ _. 002020, 
ies => GO TO READI; —SO—S— a eee ‘(002039 
END; 002021 © 
MET SE HRITE FILE UTAPE) FROM (BUFFER_DISC) 3 002040 — 
READ FILE (DISC) INTO (BUFFER_DISC)3$ 002050 | 
pn ee ee nde OS ———~60 “TO ADDT3” Se ee ——~"§o0v06e0 
EOJS1 END_CDE=13 002070 
Bee, eg rere es eg = “READ FILE” (DTSC) INTO (TBUFFER_LDISC)3 002040 
WRITE FILE (TAPE)FROM (BUFFER DISC) 3 002090 


cms: OORT 
EOJ2: IF END CDE = 1 THEN GO TO CLOSE_FILES$3 002110 


ee en ——~ON ENDF ILE (CARDS) GO TO CLOSE_FILES; ~~ ~002120 
CARD_HOLD=* '3 ; Sele acs hese ee eee 002130. 
ORS BEAD FILE (CARDS) INTO (CARD_INI? 002140 
CARD_HOLD=CARD_KEY | |ACTUAL_INFO3_ bo2150.._ 
at ITE FICE CT APE FROM CCARDLAOL OTS “0021.60 | 
GO TO EOJ23 — 002170 | 
(CLOSED IDES CLUSE FILE (CARDS), FILE (DISC), FILE (TAPE); ~~~ 002150 
. ' END3 le wie ate en Sata Ss cid oat ae ey OT 


eee ner ee a A 


—— rrr 


RIE FORMAT 


203. 


wercaeatgs 


/* 
oo ~ + PURPOSFs RFFORMATING CF RIBLIOGRAPHIC AND ARSTRACT TAPES INTI 
RIE FORMAT, THUS ALLOWING QUERY TO SFA®CH THE DATA RASE. 
i dente: teuctin nite fai Bas ie be coe ee a ee Sei eh Gee ea as tee 
: CRIE: PRACEDURE SET LONSe SAINTS “90090010 
— HCL eSer ee Saitdh, aeecweas dl qtnanadly drawl . aw ade ay sistaas So aditlac ce, = Sei ais 00000320 
CODE_ TABLE (70) “FIXED BINARY (15 40)y 7* WILL RE TREATED AS BIT */ 09990039 
BUFFER CHAP (6996) VAR, /* USED AS I/O WARK AREA ¥/ 00900940 
CLENGTHS sLEN_P_AUYTHOR(2) s4#_P_AUTHORS,TITLE_LEN, #_C_AUTHORS, 00909950 
LFN_C_AUTHOE (5) »#SA,LEN_SA(3)gLFEN_PRICE,LEN_CONTRACTeLEN_GRANTs 00090960 
z LEN_PAyLEN_PEPORT,LEN_AVATL ys LEN_JCeLEN_DAT EgLEN_ PAGES,yLEN_ avr aGs oco90070 
[ meee eee LEN DESC LNOTF,LEN_IDFENT) FEXFED -BINARY(1590)5 - ee ee a 00500780 
VT CHAR(10) VAR, 00090990 
ED CHAR(20) VAR, : _ - 7 09090100 
PFRSONAL_AUTHOR CHAR(264) VAR, 00090110 
| TITLE CHAR(396) VAR, . - 000900120 
CORPORATE_AUTHOR CHAR( 540} VAR, 00090130 
one s -- SPONSGR_AGFNCY ©. CHAR (396) .. VARq.-. .~- andes eteariwemGe eee tds - 10000140 
PA CHAR(2) + 00990150 
[ -s =. (PRICE sCONTRACT,GRANT,RFEPORT,RUREAU) CHAR{(66) VAR, OON00L60 
DATE CHAR(T)» ON0N0170 
- - PAGES CHAR(16) VARs 060990180 
(OF SCLUNMTE »JOURNAL) CHAR(132) VAR, 00090190 
| AVAIL CHAR L264) VAR, Seg ust Rh ye _ i _ onngn20nn 
be NESCRIPETAR CHAR( 2000) VAR, ° 009090219 
FOF FIX RINAPY(15,0), 00000220 
TSSUE CHAR(15) VAR, 00900239 
[ -~- --> - ESSUFQ CHAR(2), ; : ; 8 : - ~ 00090240 
2 . IDENTYIFIFR CHAR (396) VAR, 06090250 
mere BLANKS =. - CHAR (660) INITIAL OE CH6ODF Phy - - wrote cane -- 00000760 
CONE CHAR(20) CHAR(2) DEFINED CODE aT REE 00990270 
_ PA_LEN CHAR(2) DFFINED LEN_PAy 00nn028n 
LENGTHS_CHAR CHAR(2) DEF INFD LENGTHS» 0000029 
~DATE_LLEN CHAR (2) DEFINES LEN_DATEF, - 900000309 
TLUCHAPR CHAR{(2) DEFINED I, 00000310 
[ we wee» LEN_CHAR- CHAR (2) DEFINED -LEN_DESC 9: ~2-— orn ee ee ee ce - 009N0320 
SHOR T_TITLE CHAR (396) VAR3 00000330 
sears. ae Spuaeist ap, es beste. be ge ay le Sd, Fee) acdsee 2 - 00090340 
s* 00000350 
if eee ee oe EA F CONTROL - ese Gab anaes ned ee ere - 00000340 
i xf 00000370 
a iets is A Kigali edhe hes bieBictanseanee magenta: Gate es Ts molVidenslaibalesale Addrivddes OOOO00% 80 
a oN ENDFILECRTED 6n To STOP; oy 00900399 
| ited eee epic suns SER GUMes Stee aeee: A ele otacien Beasebaindcetmeees ¢ - 00000400 
e “3 ps O0N00041N 
oa vee eee cee wee SETUP - GO -D-E- -T. A BOL Be me ne er ee ee nee 00000420 
_ ks , 000004340 
[ ot eRe ees ees soos de ees sis aa ..900050440 
7 CNOF_ TABLE(1)=163 CODF_ “TABLE (2)=173 CONE. _TARLE(4)=2 233 CONE. TABLF(5)= 26300990450 
: —- CODF_TARLE(4)=273 CNOF_TABLE(19)=1283 CODE _TABLE(20)=1323 — 00090460 
i : NN T=7 T2103 CODF_LTABLF( 1)=28+13 FNODS 00090470 
|. "  =.-0Q-7s1L1 TO 193 COME_TABLE(TI=32413 ENDs. CNODE_TARPLE(3)=203.  .--- --- .- 00000489 
OPEN FILECABSTRACT) ca amianae SUE PET ee RECORD INPUTS 00090490 
ee er een Gree eee esti deat canteens faassen ei Gk: ual aed eeea Saad nares ie iG aye Suan eee a eae 00099500 
a ye 00000510 
[ : oo ee eee READ FILE - 8 IT E INTO. BUFFFR ~— WORK -ARFA.-- 22-0 0----.--- . 00000520 
. “ys 09920530 
rs - ~ 009005490 
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20k. 
f* 


INPUT? 


READ FILECRIE) INTQCBUFFERDS T=INDEXCEUPFERe EDT EELS. 


—- LFN_P_AUTHOR=03 LEN_CLAUTHOR=035 LEN_SA=0¢ 
eee Bd: ¢ song. Meise cap it sind! 2 ces eae 
NETERMINE WHETHER RFECORN ITS ATM OR ARM TSSUF 
* 7 
-TF SUBSTRE BUFFER 49,1) =t A* THEN TSSUF=TAIM 85 
ELSE ISSUE="ARM '¢5 
/* 
2. 8 NETERMINE QUARTER OF TSSUE 
=f 


I SSUFO= SUISTR (BUFFER, 4992)3 
TP F-JSSUEQ=*F. 8. THEN TSSUF=LSSUF JLT EALL EE {SUBSTR( BUFFER Sly 4) 5 
ELSE 
THEN 
ELSE 
THEN 
FLSF 
THEN - 


-TF ISSUE9='w Ss ISSUE=ISSUFITSWINTER? | }SUBSTRO BUFFER 514495 


TE FESSUEFQ=" SPe ISSUF=ISSUETI® SPRING * LE TSUBSTR(IBUFFFR 519473 


-FRF--ISSUFQ="SUF- ISSUF=ISSUFI]*SUMMER® | [SUBSTRE BUFFER 2514403 
1 fhe. 


GET ST® ING IN BUFFER AND EDIT INFO ON IT 


en) ee, 
wee -GET STRINGER AUFFFR). ENTTC#_ P_AUTHGRS 6 (LEN_P_AUTHORUS) 


THORS) »TITLFLLEN ey Al _AUTHGRS » (LEN_C_AUTHNR (5) O99 J=) TO 
- ASA,(LEN_SACJ) DO J=1 TO 454),LEN_PRICE 


PNy 


00000550 
09000569 
00099870 
00090589 


-009000599 


0909904500 
000004510 
000004520 
00090630 
00009640 


-00090550 


00099660 
00900470 
09000680 
09090690 
00000700 
ooooo71G 
000907290 
00000720 
00090740 
000900750 
000900769 
09000770 
90090780 
0NN900790 
o0000R800 
00000830 
00000829 


pn. d=1. TG #_P_AU00000R30 
4_C_ AUTHORS), 
»LEN_CONTRACT yLEN_GANTsL EN 


00009340 
00090859 


LEN _PEPMRT,LFN_BUPE AU,LEN_AVAILsLFN_JCsLEN_ DATES CENS PEGE S REN NE SCL Shae teed 


sg LIEN NESCsLEN_INENTICXCL), 23 FU4IDS 


meen ff Mme a ee eta te ee setae = 


GET vr AND ED NUMBERS 
Re fs ee et an ae - Spied meee “ Sar rae : pare 7 du. Bae 


---GET--STRING ( BEFFER) 
JS=58 5 
~-K= SUMILEN_P- AUTHOR) 3 0 -- - er eee- 


EDLTOIVTS ENC ACLO) e XI LTV ¢AC2Z0OV 93 rrr ee 


we fe Qo wmiien oh oeeneeeeee & . ‘Ai dehee “ai Ni a cethee gees we Oe eee 
CHFCK IF THERE ARE PFRSONAL AUTHOPS 
acre cee eee FE ~SO_-GET P2 As AND TITLE 
IF NOT, GFT TITLE 
Soi RP ea ee neetite nie doe bee canal sete pda leer, Ea Sree Sine ct oh See ia ses Seta See as ae 


ee TF KO THEN. - 
GET STRING (BUFFER) 
oa - -- ELSE 
GET STRING (BUFFER) EDITETITLED (X03) 9 ACTITLER LENDS 
mame JESEKETTTLE_LENS oe ee oe 
K=SUMULLEN_C_AUTHOR) 5 


90000870 
00090880 


- 000002399 


90090900 
00900970 
00099920 


- 00009930 


00900940 


-90000S559 


00090960 
00000970 
o00009RN 
00000996 


00001000 


EDITIPERSONAL_ AUTHOR, TITLED OCS) 9 ACK) ACTITLE LENYDS 


- 00091010 


00901920 
909001930 
00901049 
00001950 
COO001069 
00001070 
00091980 
00091990 
Co0001100 


eee, bes a ee 2 Se ee 205. eee ee fe ste ye ees rs dee 
/* 

ee es --- CHECK - TF THERE ARF CORPORATE AUTHORS. © —--——-—-- ——-.--—------000011190 
1F SO, GET C.A. 00001120 
Yn nn re ee + 00001130 
00001140 

a FF. K>O- THEN -DO 3 -—- ——OO00L150.- 
' GET SOT OUEP SEH EDIT(CORPORATE AUTHOR VOCS) VAI 13 00001160 
stm SR JEK G te ~- wt ee ee = ++ QOOOLITO 
ENDS OOOO1189 
ao ee K=SUMCLEN_ SAD S$ ce ce ee eee re ene rt ee ee ee te eee 00001190 
00091200 
f# ~~ — —- -——00001219 
CHECK IF THERE ARE ‘SPONSORING AGENCIES , 00001220 
we ee ERS Oy GET Se Na ne cre me me ee et re ee ee ONDOLT 20 
¥f 009017°49 
we et ee eee ee ee ree cee a tee ee ee mee ee 99001750 
TF K>O THEN DOS O0O091LZED 
——-GE-F--S TRING CRUFFER-L-FDITI SPONSORAGENCY-DOX (5 )-9-ALK DD 5 -—---—- - OC 001270 
J=JtK 3 : OocoolLy nO 
plait tsodshe aa ete ENDS: = anscencs i ceter ectesttieme oe eke Sad eee 2 _ he he SASS ocooLlrsc) 
; OONO01: ¢4O 
so fH seebiee..~ eevee ae 2, sete wives Sesesad secuss = deters oe, ocool % TN 
. GET STRING - TN BUFFER AND. “EDIT MORE INFORMATION ON FILE 0090132" 
a nn nn ti ne en remem me enmin etnmmnee ame I OOES ID 
: 00091349 
GET STRINGCBUFFER) EDIT( . ‘ ce - OOGO1L3I5N 
PRICE +CONTRACT, GRANT, Ay SF PORT y BUREAU, AVAIL » JOURNAL » DATEQDNNLI4N 
4 PAGES) DESC_NOTEs DESCRIPTOR, IDENTIFIER) CX(JS), ALLEN. PRICE) s toe one - 00001370 


AULLENTCONTRACT) ALLEN GRANT) pACLEN_PAD yA (LEN OREPIRT) AC LFN_BUPFAU00N0! 380 
——}hy ALMLENLAVATL Dy ACLEN JG Hy AC LEN DATE} 9 ALLEN PAGES by AL LENA DESC NOTE) y--- --O0001390 


A(LEN_ DESC I) ACLEN. TDENTING . 00002400 
escent epee ns eae Seaton eels, Sateen eee secs os eee ee ee A eed Saeil te dtces eet Bemis GUE. «sa ON MIO U4 AO 
/* 00901420 
wee oe ee ee CHECK TF -THERE TS AN ASSIGNED -ED NUMBER... .---. ------Heo nee eee --- 00001430 
; IF SO, GO TOR T E ENPUT 00001440 
I FNOT-y CONT NUR : — 00001459 
%f 00001460 
ait ota is go ie a Cee ia ae eee ee da a eich Si ett emis ee to OOOOLaTO 
1F SUBSTR(FDy3y1)="(* | SUBSTR{EDyllel i= * THEN DO; 000014890 
Soe ee op ee GO TO) INPUT 3 see a anne ans cen em + 00001490 
END: 00001500 
? , i OONOLTS LO 
ED=SUBSTR(ED,s 1 ps2) 1 1SUBSTRI ED, 4,3) 1 1 SURSTR(ED,38,3)3 60001520 
-~—~—-VT= SUBSTR (VT 4,192) 1) SUBSTROVT 1493): |] SUBSTREVT-98 93) 3 --—---- 0001530 
; nt 00901546 
dtc of Suc ee See a el ee Seas 000615590 
CHECK IF THERE IS AN ED NUMBER 00001560 
_1F—S0,-—-PLACE--VT_AND..£ D..CO DES 4—-LENGT.HS »—AND -NUMBERS..__._-..00001570 . ... 
INTO BUFFER 00001580 
ee EF NOT -PLACE. VT-Cy Ly -AND--N INTO--BUFF ER .—__---_--____...--- 000 0L 590 
*/ : ; 00091600 
= dete Schr Ste ae ene — a = ~—-00001610 
IF SUBSTRUED, 4¢1)-=" * THEN NO; 00001620 
——_——_ BUF F-FR=L-ENGTHS. Baer es -CHAR{LIPIED 00091430 -- 
BUFFER= BUFFER} [LENGTHS_ CHAR | | CODE_ CHAR(2)1IVTS 00901640 
EN Digi See Ste ae ata “ -— 00091650 
ELSE 00091660 
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RUFF EP =LENGTHS_CHARI!CONE_CHAR( 2), 1VT3 


AND DATA 


See Jr ink aces eaaes . - 
CHEGK IF THERE IS A PROGPAM AREA 
aut G eee see GE SOp PUT Peds Ge be AND Ne INTO 
fF 
IF LEN _PAs=0 THEN 903 
has LEN_PA=LEN_PA+43 
BUFFER = BUFFERI|9A_ -LENTICODE_ CHAR EB) IT PAS 
sue sow WIS! siseh wees ees oe un sees 
/* ss oar 
CHECK YF THERE TS A DATE 
Dee IF SO, PUT NATE €0°*, LENGTH, 
xf 
IF DATE= 'EDATE =! 1 THEN NO}; 


ed A cance LFN_DATE +43 


UNSPEC (NATE) =UNSPEC (DATED TUN: * STSUBSTR (CL ANKS yh LENL 


BUFFFR=RUFFER]IDATE_LEN] ICNR=_ 4a (4) O8TES 


s* 


- CHECK IF THERE IS A TITL® 


ee para hate 


won PF TETLE_UPNS=0 - THEN 993 


UNS PEEL TETLE D@UNSPEC( TITLE) [UNSPEC(SUBSTRO BLANKS y 14 TITLE LEN) 5 


BTITLES- L=ENNEXCTITLF se $< 493 
IF [=0 THEN GO TO ENDTITLES 


es oe pee ee = ELSE EF T=) THEN TITLF=SUBSTROTITLE,2)3 


TF SQ, PUT TITLE ©; %y AND DATA 


END 5 


BUFFER 


INTO RYFEFR 


NATE —4))3 


TNT 


00001670 
00991680 
00001690 
00901709 


-Q0001L719 


00001720 
CON01L 739 
00001749 
000017590 
000017690 
009917790 
OOD0L TRO 
00091790 
000901300 
009012190 
00001320 
oonnLe 0 
OOONTReD 
JOOULL SN 
90901859 
oooo1Lkg7oO 
NO001LR#LO 
00001890 
00091900 
00091919 
OCOdLI?20 
00091930 
00091940 


- 00091950 


00001960 
00001970 
00901980 

00901999 


ELSE TITLE= ee Eee U3] 1suast# (T1TLE00092900 


ek em taemes eRe am we nee seen ame = an in teeta ences “y T+1l)3 : meee 
T= INDEXCTITLE *>803 : 
ws TF T=0 THEN 993 - 


PUT FILECSYSPRINT) el TITLE ERROREEY VT) § 


vooemee ce sna es GO TO INPUTS 
FND3 


we eee ELSE TETLESSURSTRETITLE, -Lot-1) dL SUBSTROTITLE, 14295 


GO TA BTITLES 
“ENATYT FLE T=LENGTHCOTITLE ) +4$ - 


RUFFER= =RUFFERI IT CHAR 11 COOE_ CHARCSYTITEYLE 


= eae 6 ENDS 
eee 
CHECK IF THERE 1S A PERSONAL AUTHOR 
sol tuntcen RSQ, PUT Pe Ae Co Ly AND DATA INTO BUFFER 
*/ 


Je ee AUTHORS>O THEN DO; 
ween PESUM (LEN P_ AUTHOR DG ne peeienn ahs 


UNSPEC (PERSONAL_ AUTHOR )= UNSPEG( PERSONAL AUTHOR) UNSPFCISURSTRC 


sae oe ae BLANKS a bg DDD3 
TF #_P_AUTHDRS=2 THEN DN$ 


o.. 
ERIC 
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~-OON02010 


699029020 
G0002039 
96602040 


- 900092050 


00992060 
o000gn207T9 
00092980 

00092090 
90092100 


-00002110 


00092120 


60002130 


00092140 
00602150. 
o00c2z14690 
00002170 
00002189 


- 00092199 


00002200 
09002210 
00902220 


~~ #f 


SURSTR(PERSONAL_AUTHOR ¢ 
CP SENS Mes PTTL 


~T 


nate tal Ga. t 
AUFFFR=HUFFER TL T_ “cuae | |CCDE_ CHAP (5) |] 222 SONAL_ 


7* 


LEN_DESC_LNOTE=LEN_DE SC_ 


=T+l; 


RLOLK FAR 
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LEAL 


FNM; 


ENDS 


ea TE MEFSCRIPTAR CADE 


NOTE#LON_PAGFS 3 


NE SC_LNATE=PAGE STI MESC_NOTES 


If [=8 


eee DFe TS15 


IF 1=9 


09 T=7 TO 183 


THFN 003 


END; 
FLSE 
THEN DO3 


LEN_NESC=LFN_LINENT 3 
NESCRIPTOR=IDENTIFTERS 


LEN_DFSC=LEN_PRICES$ 
DESCRIPTOR=PRICES 


ENDS 


FLSE 


Te 1T=19 THEN O00; 


TF 


LEN_OFSC=LEN_DFSC_RO OE 
NESCRIPTCGR=DESC_NOTE 5 


END; 


FLSE 


al T= eet THEN pa; 


LEN_ NESC=LFNGTH( ISSUE) 
- DESCRIPTOR=I1SSUF3 -- : 


ENDs 


FLSE = 
1=12 THEN Ney 


ENF=13 


ON 


CNDF ILE CABSTRACT) 
sieacaseco PUT FILECSYSPRINT) 


BEGING 


If EQF=2 THEN GO TO LOOPEND; 


EQF=25 


CLOSE FILFECARSTRACT) § 


tees OPEN FILE CABSTRACT) 


GO TO ABSLS 


“ELSE. 


‘en ‘TA ABVT? 


SEND 3 ee re 


ENDS cc: <saee otk 


- TF T=13 THEN DO; 


~--TF T=l4 THEN )DO3 


ELSF 


ELSE 


ELSE 
THEN -DO$ - 


ENOS << secu emis te pee Sete 


‘ENDS 


LEN_DESC=LFN_REPORT3 
DESCRIPTOR=RUEPORTS 


1 FN_DEST=LEN_CONTRACTS 
DESCRIPTOR=COUNTRACTS 


END; é: “ain & Dna eon er 


LEN_DFSC=LEN_GRANT 3-. . --- 
_DESCRIPTOR= GRANT 3 


SEQUENTIAL BUFFERED 


nN 
Ww 


P_AUTHOF( LP +1)='3! 
a -AUTHO2ETD+11 § 


‘AUTHOR 


LENGTHe 


EDIT(EQFy VT) (SKIP sF LS) AC1O8)S 


RFCORD 


PESURSTR{ 


AND DATA 


INPUTS 


00992230 
99992260 
00992250 
90292260 


- 90072279 


90° 926 90 
JOGI27-99 
00992399 
NOP92319 
00492320 


- 00092330 


90992340 


00092350 


90992360 
00902376 
900023an 
00992390 
00002400 
00902410 
OT INA4 PAN 
ANVOSC 430 
NOOD2440 
90002450 
OS092469 
00002470 
Q009?486 
00002499 
0009002590 


- OGOOZ4HLO 


oonn2ze20 
09002530 
00092440 
90092550 
009002560 
00092570 
©0002580 
06002590 
00002600 


- 90002610 


00002529 


00902639 


Q000249 
00092650 
G0002660 


-0000267T9 


000024680 


. OONN?4690 


00002709 
00002710 
00992720 
0006272359 
00002740 


-- OCFOO2755 


000%27769 
QOCOYT FD 
MOS Pp Bes 
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IF T=16 THEN Os LEN_LDESC=LEM_RUREAU; 
DESCELPTCREBUREAUS 
-- >) ENDS ee 
FLSE 
aan -ERe-TS1-7 THEN 103 tL FN_DESCHLEN_AVATLS 

NFESCRIPTOCR=AAVATILS 


IF '=1]@ THEN ON: LEN_DESC=-LFN_JC3 
- a DESCRIPTOR=JQUPNAL? 
FNO3 
EF LEM_OFSC3=9 THEN 093 : 
UNS PFE LDESCRTPTARI =UNSPFCILESCRIPTOR) [UN SPF C(SUETTAE 
RALANKS,1lyLEN_DESC) D3 
INSERT. LEN_OFSC=LEN_OFSC4+4; 
_. BL SEPSBUFEER YY PL EN_CHA2}:; CODE_CHAP CTD TEDFSC2IPTORS 


LEN_P* S207 
io hes ue -LODPENDS ee Mee Geeiaute eed ee aye Bae eee Sasa ees 
y* a 
END OF DESCRIPTOR BLOCK 
- 
|e ene CONSTRUCT ARSTRACT VT NUMBFR 


*/ 
ABVT! VT="*VT SE SUPSTREVT 23930 FTE SL ESUBSTRIVT 165303 
cee eee eee - READ THE-FILE ARSTREACT INTO BESCRIPTOR -— WORK - AREA 
*f 


ABSL: READ FILELABSTRACT) INTOCDFSCRTPTOR)§ 
-TF SUBSTRIMESCETOTI® she LOs=VT THEN GO TO ASLS 


jet ef Bacieeene neced ah abee ae ose cseent = Mechs Sr 


SPECIFY DESCRIPTOR DATA AND LENGTH OF DATA 
ne Ae Se aaee 2 - 2 
cena ee ee eee DESCRIPTOR =SUBSTR (DESCRIPTOR, 1393 
_ LEN_DESC= LENGTH(MESCRIPTOR§ 
leew eee GO-TO INSERT3--- - 4 esolgie china aires: arid: walk e-ige tease ceeee 
END3 
= LQOPEND? ENN: 
wf Rc ce ee ee me oa fee 2k ee 
CHFCK IF THERE ARF ANY CORPORATE AUTHORS 
ee ee PR SO_ PUT Ceo Ae CODF, LENGTH,)- AND DATA-INT9 BUFFER. - 
x/ 


iF #_C_AUTHMRS>O THEN 903 

vo -TSSUMULEN_C_AUTHMR D3 J=93 

annie mee BLANK Sig 1g BD EG vores Ana a eet sitet 
_DESCRIT PTOR= -CORPORATE_ AUTHOR 3 


TE # C_AUTHORS>1 THEN 090 K=2 TO 4_C_AUTHIARS; 
J=J4LEN_C_AUTHOR (K-12 413 


o.. 
ERIC 


UNSPEC (CORPORATE_ AUTHOR) =UNS PEC(CORPNRATE_ AUTHOR) JUNSPEC( SUBSTRI 


00007790 
00002809 
e0002R10 
90997820 
ANN9N2830 
00002340 
000597850 
00092360 
079927370 
07997380 
GGO092 3890 
NaGgo7 800 
09792910 
00992920 
000902939 
N0002749 


.00092950 


00002960 
00032970 
00052980 
09902990 
09093909 
O9N9391L0 
00903929 
000930390 
00003040 
00093050 
00093960 
09003070 
00093980 


-00003090 


00093100 
00993119 
00903129 


- 009931390 


00993140 
00003159 
00993160 
00093170 
COON31L80 


-0N003190 


000032700 
90003219 
00003229 


- 000493230 


00003249 


- 00003270 


00093260 
00093270 
000022780 
00003290 
00003300 
00093310 
00003320 
00992330 
000033240 


suf de 


SUBSTRIDESCRIPTARs J eLEN_C LAVTHO?(K}4 Ld=tg FEL SUBST - 
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CORPORS ES AUTHOR ,LENLC AUTRE eat) eee CLAUTH -2TX))5 


le1s4_ ‘3g _ AUTH RS433 
RUREFRSBUEFFRIPI_CHARYICODE_CHAR(19)] [DE 


-END$ 


END; 


CHECK YF TYEPF ARE ANY SPONSORING 


IF SG, 


-TF #S54>0 THEN 003 
DESCP 12 TOR=SPONSOR_AGENCY$ 


-Je 


SUMCLER_ 


SA) 


2UT S.Ae 


Cine, 


LENGTH, 


CRT PTOR § 


GENCTES 


AND DATA INTO - 


UNS PEC (CSPONSCR_ AGENCY J =UNS PFC CSPUNSAR _ a als a 


sess taie's Hee eee {= 


PUFFER=RUEFER TL I_LCHARTIC 


~-LeoT dS 


ae $203 
IF #S4>1 THEN AO K=2 TO #SA$ 


JH JtL EN USAC K-LI 413 
SUBSTREOF SCRIPTING yd yLEN_ SA(K)+#1L)='3 
SPONSOR_ AGENCY pJ-KFLSLENLSACK) 93 


T+#SA435 


END$ 


FNOS$ 


WRITE cre BUFFER ent THE 


FILE CMASTER) 


IN?OUTS 
ENN CRIES 


FROMUBUFFER) 3 


[ 1SURSTE 


SUNE_CHAR (29) | JDESCRE PTURS 


MASTER FILE 


239 


FFER 


STRERLANKS» 
. --.» 09093510 


00003350 
90093360 
00093370 
00003228n9 
0000339n 
00093400 
000934190 
000193420 
0090034206 
00093%40 
00003450 


09903469 


09003479 
00093480 
90003499 
00003509 


00003520 
009003530 
00093549 
00093559 
000932560 


- 00093570 


00903580 
00993590 
00903400 


- 0090345190 


009934520 
09090934639 
909934540 
00093650 
00993569 
000032470 


@ 
ERIC 
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APPENDIX F 


PROGRAM AND SYSTEM FLOWCHARTS 


OVERVIEW OF SYSTEM 

DETAILED FLOWCHART OF SYSTEM 
RIE TO ATM/ARM 

MASTER 

ABSTRACT 

RESUME PRINT 

MASTER EDIT 

SUBJECT QUARTERLY 

AUTHOR QUARTERLY 

SUPPORTING SERVICES QUARTERLY 


DOCUMENT NUMBER QUARTERLY 


CONVERSION OF DOCUMENT NUMBER 


SUBJECT ANNUAL 

AUTHOR ANNUAL 

SUPPORTING SERVICES ANNUAL 
DOCUMENT NUMBER ANNUAL 


EDIT OF SUBJECT, AUTHOR, AND 
SUPPORTING SERVICES 


DOCUMENT NUMBER EDIT 


RIE FORMAT 


245 


ell 


OVERVIEW OF SYSTEM 


241 


search 
tape 


ae ae 


Abstracts 


212 


OVERVIEW OF THE SYSTEM 


determine which 


documents to include 


resume 
section 


updated 


BIBS 


) keypunch 
documents . 
needed 


213 


DETAILED FLOWCHART OF SYSTEM 


243 


7 Bub 
: : Flowe! art of the System 


- (The System Is the Same for AIM and ARM) 


This flowchart depicts an 
annual procedure which is 

= started every fall quarter 
and completed the following 
summer. ; 


Decuméent re- 
Iceived by us as 

data for quarter- 
iy publication 


Note: Underlined words in 
| the flowchart refer to 
{ computer programs, whose 
source listings can be 
: found in the back part of 
[ this booklet. 


Process fall 
4 VI-ED card 
deck ‘w/Con 


Path for all 
ndéxe? except 
the conversion 


Transfer card 


images to mag- 
netic tape 


using IEOGENER index and | version Tape 
abstracts Program 


Merge current 
‘Iquarterly VT-ED 
deck w/data set 
already on mag. 
tape. Conversion 


Tape Program is 


card images 


to magnetic 
tape 


ee Card used but tape 
image dd card contains 
tape a mod. disp. 


_ imege tape Process card 
: with Master image tape 
oe Program for abstract 
RESULT 
| Master Recreate 
Tape “) master 
tape 
fi Fix errors on Create VT-ED nversion Index} 
| Did : origi.ial punched abstract resume Program : 
a faster program Yes carfis. Use Edit section page deck aa 
: find errors : Program for ——_—| uf 
= n card data master to add ; 
|. oy bad documents to RESULT 
- existing master Do 
file. some 
documents 


Quarterly 
conversion 
index 


Hy Comment: The following procedure is used Yes need cut 
| - to generate author index, subject index, : put 
a document no. index & supporting services - 
index. Though we perform the procedure - 
{ many times/quarter, it is listed here once. : No 
fi 
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Flowchart of the System (cont'd. 


Check. index 
output 
for errors 


JEdit data set 
| on tape 


‘Corrected 
data set or 
mag. tape 


Index 
published 


Reprint summer 
conversion 
index in an 
annual format. 
Send annual 
index to printer 
Prepare for 

new year. 


Process master 
tape 
w/quartezly in- 
dex program 


Printout Quarterly 


of data set on 
quarterly mag. tape use 
inde in forming 


annual index 


Check index 
for errors 


Use the Kiit 
Master Program to 
correct the bad 
documents on 
master file 


Yes 


poy 
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Flowchart of the system (cont'd. ) 


RESULT 


Send index 
printout to 
be published 


Annual Procedure 
Followed for the 
Indexes in this Path 


HRGING DATA SETS 


The quarterly 
data sets on 
magnetic tape 
are merged to 
form one large 
set, 


RESULT 


Direct access 
to annual 
data set. 


Process the data 
set w/the Annual 


| Program belonging 


to this index. 


| Printout 
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Flowchart of the System (cont'd. ) 


Are there 
errors in the 
printout 2 


Yes ————A Edit Program Updated 
annual 
direct acces 
data set. 


Send annual 
index for 


stert a fresh 
year. 
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RIE TO AIM/ARM 
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<RYE to AIM/ARM 


INPUT CONTROLS AIM OR 
ARM, ISSUE, AND NUMBER 
OF DOCUMENTS 


READ SELECTED SET OF 
CLEARINGHOUSE ACCESSION 


CODE SET MATCHED TO 
THE VT SET 


INPUT: 


READ RIE INTO BUFFER 


SCAN BUFFER FOR ITS BUFFER 
LENGTH, INITIALIZE I, SCAN 
BUYFER FOR THAT PORTION OF 
THE BUFFER THAT APPEARS 
BEFORE THE SUBSTRING 
ACCESSION NUMBER 


DUMP INTO NEW-CODE THE 
FIELD CODE BIT STRING 
OF THE FIELD FROM THE 

RIE FILE BEING PROCESSED 


= T IF THE FIELD CODE IS 


GO TO INPUT OUT OF POSITION, GO 
TO INPUT 


DUMP INTO LENGTHS THE 
BIT STRING GIVING THE 
TOTAL FIELD LENGTH OF 


GO TO INPUT OR THE FIELD HAS NO DATA, 


PRINT LENGHTS, BUFFER- 
LENGHT, THEN GO TO INPUT 


COPY DATA STRING FROM 
FIELD BEING PROCESSED 
AND STORE IN THE 
PROCESSING LOCATION 


oo T / IF NEW-CODE = CODE- 
- TABLE (I), THEN ENTER 
PROCESSING BLOCK AND 
STORE CHARACTER LENGTH 
D_A LEN INDICATOR 
UPCODE: 


| ADD TO CODES, THE LENGTH OF 
THE FIELD BEING PROCESSED 

THAT APPEARS BEFORE THE SUBSTRING 
ACC-CODE, THE LENGTH OF THE ENTIRE 


FIELD, THIS IS TO BE USED AS A CHECK 
FOR TERMINATION OF PROCESSING A 
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—WRITE OUT 
BIBLIOGRAMIC 
RECORD 
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‘RIE to AIM/ARM (cont'd. ) 


IF CODES BUFF=R-LENGTH, 
AN ENTIRE RECORD HAS BEEN 
PROCESSED. FORM RECORD, 

PERFORM OUTPUT AND STORAGE, 
AND GO TO INPUT. 


DUMP INTO NEW-CODE THE 
FIELD CODE (i.e. ACC-CODE) 
BIT STRING 


GO TO NExt 


SCAN CODE-TABLE 
FOR VALUES OF I=2 to 20, 
CHECK IF NEW-CODE = CODE- 
TABLE (I). fF A MATCH IS 
| FOUND, GO TO NEXT. IF FOR}. 
A VALUE OF I INDICATED, NEW- 
@ODE CODE-TABLE {I}, SET 
THAT I=I~-1 AND GO TO NEXT. 
OTHERWISE, GO TO INPUT. 
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MASTER 


Deliniters 
For Sections 


Read Issue 
for this 
Publication 


Print number 
-yecords 
formed 


Read rest of 
ecards for 
this vt 


end of line 
messace 


end of 
line 
indicated 


Print Error 
Message 


ie 
in proper = 


range 


Call separate 
for personal 
authors 


“Is end 
of line 
indicated 


Store author 
count and 
Lengths 
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Yes | Sh xe | 
Print error 
= a ———i" message 


Store title 
and length 


Print titre 
error messe.ge 
— 


Store title 
and length 


Print title 
error messag 


he) 
ed 
&) 
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Store corp. 
authors, 

eount, and 

Lengths 


for sponsor- 
ing agency 


ing agency, 
count, and 
lengths 


Call separate 
for price j 
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MASTER 


Store 
contract and 
aength 


Shorten 
; string for 
grant 


Shorten 
for PA 


Call separate 
for report 
numbex 


Store report 
no. and Length| - a 
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Store bureau 


: Store 
availability 
and length 


Call separate] 
for journal 
eitetion 


Store journel 
_ @eitation 
and length 


Call separate 
Yor length 
pub date 


No 


NO 


) 


Q 
ERIC 


Yes 


Yea 


Yes 


M&ASTER 


Store : 
descriptive 
note & 


length 


Call separate 
for descrip- 
tor string 


i Store 
descriptor 

string 

F & length 
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? here ar 
identifier 
string 


Write 
record on 
master 
tape 


Store 
identifiers 
& length 
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Read rest 
of this 
document 


Yes 
Print line 
number 
wrong 
Yea 


Add to 
string for 
this line 


WS 
there any 
informa- 
tion 


Go to 
Next Section 


of Aaforaation > 
Se 


‘ee 


Print 
missing 
information 
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Create Abstract Records 


put control for 
distinguishing ARM 
of AIM input mode 


FIRST: 


Read file (cards) 
into (resume card) 
i.e. input of abstract 


is of incorrect 
form, print out the 
remainder of the re- 
sume, then go 


first cee: 


Form the appropriate code, 
begin forming the abstract, 
search for end of resume, 
set up checking parameters 
that will preserve identity 
and order of specific resume 
being handled at this time. 


If the 
end of the 
esume has not been 
reached, cone 


incorrect form, print 
out the remainder of re- 
sume, then go to 
first 


: re He) 
. Create AdStract Records (cont'd.) 


end of the 
“resune has been 
reachec, go 
to first 


to T 


+ 


| Search for 


ithe end of the 


resume ° 


to VI no. of resume bel 
processed or the input cards 

of the resume are out of 
order, print out last 
CARD ID no. & remainder, 
- of resume, then go.” 
to first 


If the end 
of the resume has 


Continue not been reachec, then 
. construc~ continue construct 
tion 


ding abstract 


Finish . 
construction 
ef abstract 


Update tne 
: : order checkin 
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Break up 
pidliographi 

record ‘or 
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MASTER EDIT 


NM 


= S Write 
Record on 
tew Maste 
File 
" End 
Ho of File 
: Yes. 
Read in 
cards 
f » For one 
corrected 
Record | 
Is Write to 
any of xy error file 
this info es about this 
ncorrect? record 
Write to 
Yes error file 
bout thig 
record 
‘ Edit data 
for corrected] 
record 
Write corrected 
record on 
New Master 
File 
End 
Ho of File? 
LYes 
as there & 


corrected record © 
for each bad one 
thrown out 


drite to 
error 
file 
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Quarterly Author o4t 


05, 560%, 
SORT sort 


on author 
ames 


Locate personal 
No Stop: authors & their 
oil lengths, corporate 


authors & lengths, 
title, resume page, 
publication date, 
and their lengths 


control 
ecards for 
print 


Form record 
for sort 
of data 
needed. 


Write name, 
title, publicatio 
date, page on 
SORTIN 


record for 


\ Write record 


Fut old page 
on print file 


needed fit cols> 


“ace new blocks 


eR yctsi 


SUPTORTIN3 SERVICES 


VARTERLY 


ad 
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Sup sorting Services Quarter] 


Open Files 
Master, Erre, 
Sortin 


Print Return 
BOE: Code 


(a find loestiod Get format 
and length of control data 


title and pub 
' lieetion dat 


Print last 


page of 
index 


Retrieve title, field 
code, VT number, 
ED number, and 
publication date 
Close file from record 
SORTOUT 


Variables 


Form short 
title for 
index 


Read file 
SORTOUT 
page header 


Form record 

with field 
code, VT no., 
publication date 


Transform code 
to desired form 


Read record 
‘rom SORTO 


Write desired 
\data on Sortin 


Ts : 
this a 

new field 
code 


Find field 
name and 
start new 

plock 


Form data 
block for 
index colunn 


Start new 


page - print 
page header 


Place new 
block in 
column 
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DOCUMENT NUMBER QUARTERLY 
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2u5 
Decument Number Quarterly 


Sort the 
SORTIN file by 
VI no. and read 
the sorted file 


Read record 
from master 
into 
MAST ERIC 


Read the 2 
print con- 
trol cards 


Extract data 
from the 
record, i.e. 
VI ro.; 

ED no., issue, 


Allocate the 
matrices 
used to stor 
information 
to be 
printed. 


Determine the 
document 
title 


Write records 


Executive 
routines accu- 
mulating data 
in printable 

form. Matrix | 


pro- 
cessing 
For each record 
write out VT 

no, ED no, page 
no, length of 

title, title, 
issue, yeari 
year2 


Liner~ accumu- 
late 1 print. 
record. Matrix 
Build- accumu- 
late 1 entire 
page of print, 
with records 
stored sequen= 
tialiy by VT no. 
by printed 
column, 


Print 
an entire 
page when 
build is 

filled 


Reinitialize 
matrix build 


ENC ae 
w) 


CONVERSION OF DOCUMENT NUMBER 


2u7 
CONVERSION OF DOCUMENT NUMBER 


Read format 
Gontrol daris 


Print final ali. 05/360 
age number Yo ; sort to 
\. arrange 4 
numbers 


Read sort 
_ output 
file 


Close 
files Yes 


Change page no. 


Print footnote Will docs 
if needed room for no, fit in 
Prepare page column 


title 


Store entry 
in proper 
column 
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SUBSJZCT ANINUAT, 
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SUBJECT ANNUAL 


to arrange 
subset files 
in proper 
order 


Close files 
and print 
final page 


Form block 
with old 
keyworll and 
publications 


Start array 
for 
publication 
date 


Store vi in 
array for 


preper 
publication date 


Put data 
on Paint 
file 


Weert 


Byatt 


Beau ay 


Print Record & 
Hrror Message 


Start Colum With 
Author Neme 


Sort By 


Ht 
B 
H 
4 
: 


Read In Control 


Parameters 


Open Files 


falevlate No.. of 
VIs Per Line 


Read Author 
File 


Is Year In 
Correct Format? 


Yes 
“” Is This Another 
Record For Author 


Will Author & lst 
Line Fit Colum 


Yes 


Place Author & ist 
Line In Column 


Is There More 
For This Colum 


Yes 


Form Next Line 
e For Author 
Will New Line 
Fit Column 


No 


Will Page Hold 
New Column 


Start New 
Page 


EOF 


No 


wilt 
Page Hold 

Another 
Column 


Start New 
olvmn 


No 


Start 
New 
Page 
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AUTHOR ANNUAL 


On 


fa 
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ENC 
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SUPPORTING SERVICES ANNUAL 


QB? 


dr ap eR 


FLOW CHART FOR ANNUAL SUPPORTING SERVICES INDEX PROGRAM 


Sort the 4 AIM data sets 
Jona the 4 ARM date sets 

by ascending order subcodes, 

the each subcode by ascending 
order publication date, and 
then each date by VI number 
in ascending order 


Print out return 
rode for the so 
and worted 
records as 
a check 


Read print 
specifications 


Initialize variables 
for the printing index 


Put a title on 


title page 


Read in first record 
. [from the sorted file 


Initialize variables 
| rélevant to the sub- 
ende being. processed 
‘ 


| Read in next record 
| from sorted file 


oo 


Ve aoe 


Ada this document 
to the next posi- 
tion under the cur- 
rent date 
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Check the number of pub. 
dates accumilated under 
this subcode if 15, 
issue an error message 


Set the subcode name 
up in column form for 
the index printout 


Build in calum form, the 
data for this subcode for 
the index printout by 

1. Doing the tuild by 
one date at a tine 

2. First, putting the 
date in the colum 

3. Second, putting all VT 
numbers of that pub. 
data under it, in 
column form. 

4. By placing the subcode 
name at tne head of the 
colum if a new subcode 
is initiated, done 4s 
indicated 


T Start new 
@ colum 
if f 


~ 
Nd 


Place this document 
first under the new 
date, and place the 
new date next in the 
line of dates 


cy 


| 


iReset lire sournters 
for ruild of 
next eolum 


Nay —— eno 


@ Lass page being 
puiit onto the output 
print file, as is 


DOCUMENT NUMBER ANNUAL 
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Prepare 
Page 
Title 


Is There 
Room For 
Another 
olumi 


Change Page } 
Start First: 
Column j 
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SUPPORTING SERVICES 
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aot 


EDIT OF SUBJECT, AUTHOR, AND SUPPORTING SERVICE 


Identify 
Records 


Open Input 
And Output 
Data Sets 


a 


delete 


Destroy O1d & 
Record | 
Replace w/ 

y New 


ERIC | | 287 


256 


DOCUMENT NUMBER EDIT 


Edit for Document Number 


“start am 
C Start A 


END_CDE 


x Go te 
=0 READL 
En Go to 
of disc. Yes EoJ2 
No Read-dise 


tead 1 
ADDT 
Write 
TAPE OUL 
fron 
Kad Yes Go to TARD_HOLD 
of cards EOJL — 
Read 
cards 
Move 
INDEX_AREA 
to 
CARD_HOLD 
CHECK 1. = A Yes Go to 
ADDT 
No 
EOJL 
Yes Go to 
READ DISC | 
Wo 
Ye Write 
tape from 
disc 
‘<) 
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Bait for Document Number (cont'd.) 


EdJ2 /~”END_CD Go to 
Yes . CLOSE_FILES 
1 
No 
End Yes Gotto 
of cards " * CLOSE FILES 
No 


Move ' 
to } 
CARD_HOLD : 
Write / : 
tape : 
, from { 
CARD _HOLD, 
Close files 
Close 
CARDS 
DISC 
TAPE 
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RIE Format 


Sudstr 


=A? Yes 


Issue = 
ARM 
=F =Su 
zSpP 
Issue = Issue = Issue =. Issue = 
Winter Spring Summer 


Get string 
with information 
on file 


Get string 


Ss 
there Get title 

a@ personal Yes and personal 
author } author 


‘there any 
sponsoring 
agencies 


Get list of 
sponsoring 
agencies 


Get string 
with more 

information 
,on file 
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RIE Format (cont'd-) 


Place VI-ED code, 


Place VT code; 
length & no. in 


Length, & no. 
in buffer : sutice 
Is 
there data 
describing the 
title? 
Yes 


Place codes, 
Mlengths, and data 


in buffer. 


Place codes, Yes 
Lengths and 

author data 

in buffer. 


No 


of fil Yes 
puffer 
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~~AANNUAL “SUPPORTING SERVICE INDEX 288 
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Siegfried, Larry R. 
Source Unit in Feeds and Feeding. 


Colorado State Univ., 7%. Collins. Agricultural Education Sec: rion 

Colorado State Board for Community Colleges and Occupational Education, Denver 

MF AVAILABLE IN VT-ERIC SET. 

Agricultural Education Section, Department of Vocational FEddcaticn, Colcrado State 
University, Fort Collins, Colorado 80521 ($1.00). ; 

PUB DATE —- 69 1p. 


DESCRIPTORS ~ *RESOURCE UNITS; RESOURCE MATERIALS; *UNIT PLiN; *VOCATIONAL AGRICULTURE; 
*AGRICULTURAL PRODUCTIUN; ANIMAL SCIENCE; *NUTRITION; LIVEST=2 °K; SECONDARY GRADES 


ABSTRACT - Prepared by a graduate assistant in agricultural = ducation, this source tnit 
may be used by vocational agriculture teachers in planning a:.i presenting a unit in 
feeds and feeding. The 13 sub-units, providing objectives, mcotivaticn techniques, study 
guides, references, and suggested teaching plans, cover: (1) nutrients necessary for 
Livestock, (2) chemical composition and classification of feeds, (3) digestive systems 
of ruminants and non-ruminanats, (4) digestion and adsorption of feeds by livestock, (5) 
feed preparation techniques, (6) role of protéins, carbchydrztes, fats, Minerals, and 
vitamins in livestock feeding, (7) feed additives, (8) balancing rations, and (9) 
computing lowest-cost balanced ratioas. (A) 


ywt_010 527 
Tree Identification: Western Pines. 


California State Polytechnic Coll., San Lnis Obispo. Yocational Education Productions 
California State Dept. of Education, Sacramento. Vocational Education Section 

MF AVAILABLE IN VT-ERIC SET. 

Vocational Education Productions, California State Polytechnic College, San Luis 
Obispo, California 93401 ($2.00, Manual and 20 slides available for $6.50). 

PUB DATE — 69 21p. 


DESCRIPTORS - *GUIDES; *AGRICULTURAL EDUCATION; *IDENTIFICATION; *TREES; *FORESTRY > 
NATURAL RESOURCES; CLASSIFICATION; TAXONOMY 


ABSTRACT - This multi-media kit, for use in agricultural education classes studying 
tree identification, consists of the following: (1} 10 slides of pines of commercial 
Significance in the West, with the common and Latin names of the tree superimposed on a 
combined view of a typical specimen and a close-up view of the trunk and needles or 
leaves, (2) 10 slides identical to the ones identified, but without the names, to be 
used for testing purposes, (3) 10 transparency masters, one for each of the 10 species 
pictured on the slides, for use in producing overhead transparencies or other 
instructional materials, (4) short descriptions of the 10 pictured species, and (54 
suggested identification procedures. The 10 Species of western pines covered are: (1) 
Douglas Fir, (2) Engelmann Spruce, (3) Idaho White Pine, (4) Incense Cedar, (5) Latch, 
(6) Lodgepole Pine, (7) Ponderosa Pine, (8) Sugar Pine, (9) Western Red Cedar, and (10) 
White Pir. The Slide set may be obtained fron the source of availability indicated for 
this document. (A) 


Careers in Animal Industry. 


California State Polytechnic Coil., San Luis Obispo. Vocational Education Productions 
California State Dept. of Education, Sacramento. vocational Fducation Section 
DOCUMENT NOT AVAILABLE FROM EDRS. bo sacl Aah Baie sO : 

Vocational Education Productiens, California State Polytechnic College, San Lais 
Obispo, California 93401 (3.50; filmstrip, script, and taped narration $7.95). 
PUB DATE - 69 ‘5p. 


an 
ou : 


DESCRIPTGHS — *AUDIOVISUAL ATDS; *OCCUPATIONAL INFORMATION; *AGRECULTURAL OCCUPATIONSs 
*OPF FARM AGRICULTURAL OCCUPATIONS 
IDENTIFIERS — *ANIMAL INDUSTRY 


ABSTRACT - This illustrated companion script to a 50-frame filmstrip was developed by 
departments in the School of Agriculture, California State Polytechnic College to 
provide information on the history, Progress, and variety of occupations in the animal 
“Q* 1stry. The film also discusses briefly the education needed and opportunities for 


ERIC in animal industry occupations. (CH) 
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DESC. “TORS -—- *TEACHING GUIDES; *DISTRIBUTIVE E ‘TATION; *TEACHING TECHNIQUES; 
SALESHANSHIP$ MERCHANDISING; COMMUNICATION SKIL CARE” = PLANNING; SECONDARY GRADES 
ABSTRACT - The teacher's guice is designed to as. the teacher-coordinator in planning 
individual and group activities four students ir wstribitive Education I and If. The 
teaching techniques: suggested include case stud: “s, strxectured reports, and assignuents 
related to class study, the students! jobs, anc _iub contests. Units containing 
suggested activities for Distributive Education ~" are: (1) School and Business 
Relationships, (2) Sales Developrent, (3) Busin. = Communications, and (4) 


Organizations for Distribution. nits containing suggested activities for Distributive 
Education If are: {1} Career Plamning for Profes: .onal Growth, (2) Economics for 
Distribution, (3) Merchandising, and (4) Business Psychology. Each unit contains 
teacher information and student forms for th= su'3tested activities. (SB) 


VT _ 002 683 


Marketing I; Teachers Manual. Distributive FEducz.-i:on Se ies. 


North Carolina State Dept. of Public Instruction, Raleich. Div. of Vocational Education 
MF AVAILABLE IN VT-ERIC SET. 
PUB DATE — ND 247p. 


DESCRIPTORS — #*vDISTRIBUTIVE EDUCATION; *TEACHING SUTDES; *MARKETING;S SALES OCCUPATIONSS 
SALESMANSHIP; MERCHANDISING; CAREER OPPORTUNITIES ; GRADE 11 


ABSTRACT - Developed by a committee of high schoc . teacher-coordinators, this teacher's 
guide is for use in planning a first-year course in marketing for juniors who expect to 
enter some form of distribution, but who cannot, “cr various reasons, participate ina 
cooperative program Of on-the-job training, A suc '--sted time allotment and bibliography 
are provided for these units: (1) Introduction tc Marketing T, (2) Sales Supporting 
Activities, (3) Salesmanship, (4) Sales Promotion, (5) Business Organization, and (6) 
Careers in Marketing. Each unit contains a list cf materials and equipment needed, 
objectives, topical outline, and teaching suggestions, Supplementary forms and 
information for students are appended. A related document is available as VT 002 568 
(also in this issue). {(SB) 


Vt_010_256 
Russell, Kenneth Lee 
The How in Parliamentary Procedure. 


Distributive Education Clubs of America 

DOCUMENT NOT AVAILABLE FROM EDRS. 

The Interstate Printers and Publishers, Ince, 19-27 North Jackson Street, Danville, 
Illinois 61832. 

PUB DATE — 67 65p. 


DESCRIPTORS - *DISTRIBUTIVE EDUCATION; *STUDENT QRGANIZATIONS; *CLASSROOM MATERIALS; 
*COCURRICULAR ACTIVITIES; *MANUALS 
' IDENTIFTERS - *PARLTAMENTARY PROCEDUBES 


ABSTRACT ~ This handbook was prepared by a professor of education for those who 
participate in group meetings. It is useful both to high school groups such as student 
councils and to adult civic groups. Topics discussed include (1) rule enforcement, (2) 
motions, (3) elections, (4) new business, and (5) requests. A student assignment book 
based on this manual is available as VT 010 257 (also in this issue). (JS) 


ee Se oe 


The How in Parliamentary Procedure, Student Assignments. 


Texas Univ., Austin. Instructional Materials Lab. 

DOCUMENT NOT AVAILABLE FROM EDRS. . . 
Instructional Materials Laboratory, Distributive Fducation Department, Division of 
Extension, The University of Texas, Austin, Tcxas 78717. 

PUB DATE — Jun69 29p.3; Based on "The How in Parlianentary Procedure" by Kenneth L. 
Russell, The Interstate Printers 2nd Publishers, Inc., Danville, Illinois, 19367. 


DESCRIPTORS — *CISTRIBUTIVE EDUCATION; MANUALS: *STUDENT PROJECTS; *RORKBOOKS;: *STUDY 
GUIDES; SECONDARY SCHOOLS; *CLASSROOM MATERIALS 
IDENTIFIERS — *PARLIAMENTARY PROCEDURES 


Q ACT - This student manual was published by a university materials lahoratory to 
ERIC distributive education students the fundamentals of parliamentary procedure. 
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